Nullwerte aus Diagramm in Diagrammblatt entfernen
31.08.2006 08:53:59
Marcus
ich habe folgendes Problem: In einem Diagrammblatt habe ich Diagramm die zum Teil auch Nullwerte enthalten. Diese möchte ich via VBA aus den Diagrammen löschen. Bei eingebundenen Diagrammen ist das in der Regel kein Problem und ich mache es dort mit der folgenden Syntax:
**************************************************************
Sub grafiken_formatieren_D()
Dim a, j, k As Integer
Dim Cht As Chart
Dim ChtSCol As SeriesCollection
Dim ChtPt As Point
For a = 1 To 2
Worksheets("Mappe1").Activate
Set Cht = ActiveSheet.ChartObjects(a).Chart
Set ChtSCol = Cht.SeriesCollection
On Error Resume Next
For j = 1 To ChtSCol.Count
ChtSCol(j).ApplyDataLabels ShowValue:=True
For k = 1 To ChtSCol(j).Points.Count
Set ChtPt = ChtSCol(j).Points(k)
If ChtPt.DataLabel.Text <= "0,00" Then
ChtPt.DataLabel.Delete
End If
Next k
Next j
Next a
End Sub
****************************************************************
Bei Diagrammblättern funktioniert das so nur leider nicht.
Hat jemand eine Idee wie man die Syntax dort formulieren muss?
Danke,
Marcus
Anzeige