AW: 0-Werte im Diagramm nicht anzeigen
31.05.2007 17:12:00
ingUR
Hallo, Manfred,
als Grundstock für eine Prozedur könnte folgemdes Makro dienen (Achtung: bitte an Kopie des Diagrammblattes zuvor testen!):
Sub EntferneNull_NV_DataLabels()
Dim chtSC As SeriesCollection, s As Integer, p As Integer
Set chtSC = ActiveChart.SeriesCollection
Application.ScreenUpdating = False
For s = 1 To chtSC.Count
For p = 1 To chtSC(s).Points.Count
With chtSC(s).Points(p)
On Error Resume Next
If .DataLabel.Caption = "0" Or .DataLabel.Caption = "#NV" Then .DataLabel. _
Delete
End With
Next p
Next s
Set chtSC = Nothing
Application.updating = True
End Sub
wobei hier nur explizit die Labels entfernt werden, die den "Sichttext" 0 bzw. "#NV" haben. Sofern andere Wertebedingte Änderungen am Laber vorznehmen sind, ist diese ggf. über den Wert des Datenpunktes zu entscheiden, der nicht mit dem Schriftzug des Datenpunkts übereinstimmen muß.
Darüber hinaus ist dieses Makro, das in den Modulornder des Projektes abzulegen ist, nur auf Diagrammblätter anwendbar (bei eingebetteten Diagrammen ist der Set-Befehl entsprechend abzuändern). Es bereinigt das aktiviere Diagramm.
Gruß,
Uwe