VBA: Im Einzelschritt i.O. / Sonst nicht
16.09.2024 10:39:51
UweD
Habe ein komisches Phänomen.
With Ch2.Chart.FullSeriesCollection(3)
' Zuerst alle Datenbeschriftungen durchlaufen um auszuschalten
For i = 1 To .Points.Count
If .Points(i).HasDataLabel Then
.Points(i).HasDataLabel = False
End If
Next i
' Dann für den gewünschten Punkt die Schriftgröße auf 16 setzen
With .Points(Zeile - Z1)
.HasDataLabel = True ' Falls es noch keine Datenbeschriftung gibt
.DataLabel.Format.TextFrame2.TextRange.Font.Size = 16 ' Größere Schriftgröße für diesen Punkt
End With
End With
Ich blende in einem Diagramm (bei Aktivierung) die Datenbeschriftung des Vortages ein und setze auf größere Schrift
Vorher werden erst alle Punkte ausgeschaltet.
Lasse ich den 2. Teil im Einzelschritt laufen, klappt es, im Automatikmodus ist die eine Beschriftung weg.
Habe schon versucht:
- Bildschirmaktualisierung aktivieren: Application.ScreenUpdating = True am Ende des Makros.
- Prozesse ablaufen lassen: Verwende DoEvents, um Excel Zeit für die Aktualisierung zu geben.
- Diagramm aktualisieren: Verwende .Refresh, um das Diagramm explizit zu aktualisieren.
- Diagramm vorher aktivieren:
Kein Erfolg.
Kennt jemand eine weitere Lösungsmöglichkeit?
Datei ist momentan zu umfangreich. Ich versuche mal eine abgespeckte Datei zu erstellen.
Danke vorab.
UweD
Anzeige