Das Archiv des Excel-Forums

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

Excel-Beispiele zum Thema "Eingebettetes Diagramm aktivieren"
Diagramm in Userform Export von Diagrammen im Grafikformat
Diagramm aus Arbeitsblatt in Diagrammblatt übertragen Balkendiagramm simulieren
Diagramm aus Daten einer Bandbreite bilden Diagramm-Datenreihen blinken lassen und Linie langsam zeichnen
Diagramm exportieren und in Tabellenblatt importieren Eine Serie von Diagrammen erstellen und Druckansicht zeigen
Diagramm-Datenbereich über Schaltfläche festlegen Mit einer Diagramm-Bildlaufleiste durch Tabelle bewegen