Diagramm platzieren
03.10.2003 13:36:46
MarkoHM
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