Pyramiden Grafik
28.09.2004 13:55:06
Frank
ich habe ein kleines Problem mit einer Grafik. Beim Öffnen eines Workbooks soll automatisch eine Grafik erzeugt werden. Aus der schon vorhandenen Tabelle werden nur Teile für die Grafik benötigt, und ich habe keine Möglichkeit, die Tabelle zu ändern. Weiterhin muss der Code auf Excel 2000, Xp und 2003 laufen.
Hier meine Code:
Private Sub test1()
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
ActiveChart.ChartType = xlPyramidColStacked100
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("A3:A6,C3:C6"), PlotBy:=xlRows
End Sub
Funktioniert unter Excel 2003 auch prima, nur unter Excel 2000 gibt es einen Fehler 1004. Hat jemand von Euch Ahnung, wie ich das Ganze anders gestallten kann, ohne die Datein ein ein neues Sheet kopieren zu müssen, wo ich einen zusammenhängenden Datenbereich habe (der funktioniert nämlich).
Versionen:
Excel 2000 SP3
Excel 2003 SP1
Datei liegt auf dem Server (https://www.herber.de/bbs/user/11404.xls
)
Gruß
Frank