Das Archiv des Excel-Forums

Diagramm platzieren

Bild

Betrifft: Diagramm platzieren
von: MarkoHM

Geschrieben am: 03.10.2003 13:36:46

Hallo,
ich habe ein Makro aufgezeichnet, das beim Anklicken einer Schaltfläche ein Diagramm erstellt. Der letzte Schritt bei der Aufzeichnung sollte das Diagramm an einer anderen Stelle platzieren. Und genau da kam die Fehlermeldung:
Laufzeitfehler '-2147024809 (80070057)':
Das Element mit dem angegebenen Namen wurde nicht gefunden.
Hier mal das komplette Makro:
(Der Debugger verwies auf die beiden Zeilen mit ActiveSheet.Shapes("Diagramm 1") u.s.w.)

Sub Zeichnen()
Range("A2:B10").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("A2:B10"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Schaubild"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y"
End With
ActiveChart.HasLegend = False
ActiveSheet.Shapes("Diagramm 1").IncrementLeft 35.25
ActiveSheet.Shapes("Diagramm 1").IncrementTop -93#
ActiveWindow.Visible = False
Windows("Mappe1").Activate
Range("J5").Select
End Sub

Leider verstehe ich nichts von VBA und würde mich freuen, wenn jemand mir weiter helfen könnte.
Mit freundlichem Gruß
Marko
Bild


Betrifft: AW: Diagramm platzieren
von: GerdW
Geschrieben am: 03.10.2003 14:03:45

Bei jedem Durchlauf des Makros wird der Index des erzeugten Diagramms
erhöht, daher stimmt die Bezeichnung Diagramm 1 dann nicht mehr.

Gerd


Bild


Betrifft: Antwort von Gerd
von: MarkoHM
Geschrieben am: 03.10.2003 14:26:12

Hallo Gerd,
danke erst mal. Kann man da noch was machen oder muss das Diagramm doch von hand nachträglich verschieben?
MfG Marko


Bild


Betrifft: AW: Antwort von Gerd
von: GerdW
Geschrieben am: 03.10.2003 17:58:07

Du erzeugst ja bei jedem Makrodurchlauf ein neues Diagramm, ist das
denn so gewollt? Wenn ja, wann ist denn da mal Schluß?
Du kannst die Diagramme über den Index ansprechen.
ActiveSheet.ChartObjects(1).Chart

Gerd


 Bild

Excel-Beispiele zum Thema " Diagramm platzieren"

Diagramm in Userform download Export von Diagrammen im Grafikformat download
Diagramm aus Arbeitsblatt in Diagrammblatt übertragen download Balkendiagramm simulieren download
Diagramm aus Daten einer Bandbreite bilden download Diagramm-Datenreihen blinken lassen und Linie langsam zeichnen download
Diagramm exportieren und in Tabellenblatt importieren download Eine Serie von Diagrammen erstellen und Druckansicht zeigen download
Diagramm-Datenbereich über Schaltfläche festlegen download Mit einer Diagramm-Bildlaufleiste durch Tabelle bewegen download
Gleiche Zufallszahlen zählen und in Diagramm anzeigen download Diagrammdatenreihe mit VBA ändern download
Diagramm erstellen, in UserForm anzeigen und drucken download Dynamisches Diagramm download
Diagramm dynamisch erstellen download Hyperlink zu einem Diagrammblatt. download
Diagramm zu PowerPoint-Präsentation konvertieren und aufrufen download Bei Rechtsklick auf Diagramm MessageBox-Aufruf download