Das Archiv des Excel-Forums
Diagramm platzieren
- Diagramm platzieren von MarkoHM vom 03.10.2003 13:36:46
- AW: Diagramm platzieren - von GerdW am 03.10.2003 14:03:45
- Antwort von Gerd - von MarkoHM am 03.10.2003 14:26:12
- AW: Antwort von Gerd - von GerdW am 03.10.2003 17:58:07
- AW: Antwort von Gerd - von GerdW am 03.10.2003 17:58:07
- Antwort von Gerd - von MarkoHM am 03.10.2003 14:26:12
- AW: Diagramm platzieren - von GerdW am 03.10.2003 14:03:45
 |
Betrifft: Diagramm platzieren
von: MarkoHM
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
 |
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
|
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
|
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
| |
