Schleifenschritte ausblenden
15.02.2005 10:25:53
Philipp
ich habe ein Blasendiagramm ersellt. Mit folgendem VBA-Code lasse ich die Beschriftung der Blasen ein- bzw. ausblenden.
Sub beschriftungon()
ws = ActiveSheet.Name
ActiveSheet.ChartObjects(1).Activate
For j = 2 To 500
If Worksheets(ws).Cells(j, 1).Value <> 0 Then
With ActiveChart.SeriesCollection(1).Points(j - 2 + 1)
.HasDataLabel = True
.DataLabel.Text = Worksheets(ws).Cells(j, 1).Value
End With
End If
Next j
End Sub
Sub beschriftungoff()
ws = ActiveSheet.Name
ActiveSheet.ChartObjects(1).Activate
For j = 2 To 500
If Worksheets(ws).Cells(j, 1).Value <> 0 Then
With ActiveChart.SeriesCollection(1).Points(j - 2 + 1)
.HasDataLabel = True
.DataLabel.Text = ""
End With
End If
Next j
End Sub
Bei diesem Vorgang, der ja eine 500-fache Schleife (nötig, da bis zu 500 Blasen) ist, wird jede Beschriftung nacheinander für den Nutzer sichtbar eingeblendet, d.h. das Diagramm fängt für kurze Zeit an zu blinken.
Kann man diesen Vorgang unsichtbar gestalten? So dass der Nutzer nichts von den einzelnen Vorgängen sieht?
Vielen Dank
Philipp