AW: Diagramm Datenreihen Löschen
07.01.2008 21:34:13
ingUR
Hallo, @Max,
hier ein Grundmodul für eine spezielle Lösung, die Du in besondern Punkten gggf. anpassen mußt, da Du nicht mitteilst, in welcher Programmumgebung das Diagramm, das der Prozedur unterworfen werden soll, angespriochen werden kann bzw. soll:
Option Explicit
Sub NurErsterGraph()
Dim cht As Chart, iSc As Integer
Set cht = ActiveSheet.ChartObjects(1).Chart
For iSc = cht.SeriesCollection.Count To 2 Step -1
cht.SeriesCollection(iSc).Delete
Next
End Sub
Die Besonderheit bezieht sich darauf, dass die Prozedur auf das erste Diagramm, das nicht den Fokus hat, auf dem aktiven Tabellenblatt angewendet wird.
Gruß,
Uwe