Gruppe
Grafik
Problem
Wie kann ich in einem Diagramm die Datenreihen blinken lassen und eine Linie so stückweise zeichnen, daß man den Verlauf verfolgen kann?
StandardModule: basMain
Sub Blinken()
Dim cht As Chart
Dim iCounter As Integer
Dim bln As Boolean
Set cht = ActiveSheet.ChartObjects(1).Chart
For iCounter = 1 To 10
If bln Then
cht.ApplyDataLabels (xlShowValue)
bln = False
Else
cht.ApplyDataLabels (xlNone)
bln = True
End If
Application.Wait Now + TimeSerial(0, 0, 1)
Next iCounter
End Sub
Sub Zeichnen()
Dim cht As Chart
Dim iCounter As Integer
Set cht = ActiveSheet.ChartObjects(1).Chart
cht.SeriesCollection(2).Border.ColorIndex = 15
For iCounter = 1 To cht.SeriesCollection(2).Points.Count - 1
cht.SeriesCollection(2).Points(iCounter).Border.ColorIndex = 0
Application.Wait Now + TimeSerial(0, 0, 1)
Next iCounter
End Sub