Moderatori: Anthony47, Flash30005
ActiveChart.SeriesCollection(4)
ActiveChart.SeriesCollection(4).Points(n)
ActiveSheet.ChartObjects("Grafico 3").Activate
With ActiveChart.SeriesCollection(4)
.Format.Fill.ForeColor.RGB = RGB(250, 250, 250)
.Points(Range("C10").Value).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
End With
ActiveWindow.RangeSelection.Select
Sub Time()
On Error Resume Next
If Collegamento Then
ActiveSheet.Calculate
Application.ScreenUpdating = False
ActiveSheet.ChartObjects("Grafico 3").Activate
With ActiveChart.SeriesCollection(4)
.Format.Fill.ForeColor.RGB = RGB(250, 250, 250)
.Points(Range("C10").Value).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
End With
ActiveWindow.RangeSelection.Select
Application.ScreenUpdating = True
Application.OnTime Now() + TimeValue("00:00:01"), "Time"
If Range("C8").Value = "57" Then
Foglio1.Range("G12:H23").Fill.ForeColor.RGB = RGB(255, 255, 0)
End If
End If
End Sub
=ARROTONDA.MULTIPLO(MINUTO(E4)/5;1)
Sub Ferma_Orologio()
On Error Resume Next
Collegamento = False
ActiveSheet.ChartObjects("Grafico 3").Activate
With ActiveChart.SeriesCollection(4)
.Format.Fill.ForeColor.RGB = RGB(250, 250, 250)
End With
ActiveWindow.RangeSelection.Select
End Sub
=SE(ARROTONDA.MULTIPLO(MINUTO(E4)/5;1)=0;12;ARROTONDA.MULTIPLO(MINUTO(E4)/5;1))
Torna a Applicazioni Office Windows
L'oggetto invocato si è disconnesso dai client corrispondent Autore: marysa81 |
Forum: Software Windows Risposte: 2 |
Metodo Activeprinter dell'oggetto _Application non riuscito Autore: oz85 |
Forum: Applicazioni Office Windows Risposte: 3 |
Selezionare un Oggetto Trama in una Chart con il VBA Autore: A.Maurizio |
Forum: Applicazioni Office Windows Risposte: 1 |
Nascondere Duplicati in un Calendario Chart Autore: A.Maurizio |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 8 ospiti