Eingebettetes Diagramm aktivieren



Excel-Version: 97
nach unten

Betrifft: Eingebettetes Diagramm aktivieren
von: Torsten
Geschrieben am: 17.04.2002 - 10:25:39

Hallo,

ich möchte in ein Tabellenblatt mehrere Diagramme einfügen und versuche das und die anschliessende flexible Datenzuordnung mit nachfolgendem Code:

Sheets("Tabelle1").Activate
For i = 1 To AktuelleNummer
Worksheets("Tabelle1").ChartObjects.Add(50, 50, 50, 50).Name = "Graphische Datenauswertung" & i
ActiveSheet.ChartObjects("Graphische Datenauswertung" & i).Activate
ActiveChart.ChartWizard Worksheets("Daten").[flexibles Range], xlLine, 4, xlColumns, 1, 1
Next i

Das Makro fügt mir die entsprechende Menge (benannter) Diagramme ein, ich kann jedoch keine Datenbereiche zuordnen.
Der Fehler tritt in der 4. Zeile auf:

Laufzeitfehler '1004'
Die ChartObjects-Eigenschaft des Worksheet-Objektes kann nicht zugeordnet werden

Kann mir jemand einen Tip geben was hier falsch ist (oder eventuell eine andere Lösung vorschlagen)?

Gruß, Torsten



nach oben   nach unten

Re: Eingebettetes Diagramm aktivieren
von: Coach
Geschrieben am: 17.04.2002 - 18:51:44

Hallo Torsten, hier das prinzipielle Verfahren: Sub test() Dim r As Range Sheets("Tabelle1").Activate Set r = Worksheets("Daten").Range("A4:B5") For i = 1 To 1 Worksheets("Tabelle1").ChartObjects.Add(50, 50, 50, 50).Name = "Graphische Datenauswertung" & i ActiveSheet.ChartObjects("Graphische Datenauswertung" & i).Activate ActiveChart.ChartWizard r, xlLine, 4, xlColumns, 1, 1 Next i End Sub Gruß Coach

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Eingebettetes Diagramm aktivieren"