Makro ohne erkennbare Einzelschritte
14.09.2014 12:18:56
Eric
Hallo! Ein Arbeitsblatt enthält zwei Diagramme mit Diagrammübeschriften. Per Makro sollen die Überschriften geändert werden. Zuvor sollen beide Überschriften blinken, um auf die besvorstehende Änderung hinzuweisen. Den Code dazu habe ich. Es geht hier nur um das erkennbare Blinken der Überschriften.
Private Declare
Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Farben_wechseln()
Dim C As Byte, X As Byte
For C = 1 To 2
For X = 1 To 20 Sheets(Worksheets.Count).ChartObjects(C).Chart.ChartTitle.Characters.Font. _
Color = RGB(255, 51, 0)
Sleep 50
Sheets(Worksheets.Count).ChartObjects(C).Chart.ChartTitle.Characters.Font.Color = RGB(0, 0, 0)
Sleep 50
Next X
Next C
End Sub
Problem: Der Code funktioniert, aber das Blinken ist bei Klick auf die Makroschaltfläche nicht zu sehen. Nur, wenn ich das Makro manuell über die F8 Taste durchführe, wechseln die Farben der Überschriften wie gewünscht.
Kann mir bitte jemand bei der Lösung des Problems helfen? Vielen Dank!
Mfg Eric