Diagramm einfügen
25.11.2003 11:00:08
Andi
ich möchte per VBA ein Punktdiagramm in einem Tabellen-Blatt namens "Darstellung der Werte" einfügen; die Wertetabelle für das Diagramm steht in einem Blatt namens "Byte-Auswertung". Außerdem sollte das Diagramm etwas größer sein, als es von Haus aus ist und eine weisse Zeichnungsfläche haben.
Ich hab' das dann einfach mal manuell gemacht, und dabei den Markro-Rekorder mitlaufen lassen, wodurch folgendes produziert wurde:
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Darstellung der Werte").Range("D33" _
)
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "='Byte-Auswertung'!R25C2:R152C2"
ActiveChart.SeriesCollection(1).Values = "='Byte-Auswertung'!R25C3:R152C3"
ActiveChart.SeriesCollection(1).Name = "=""I(V)"""
ActiveChart.Location Where:=xlLocationAsObject, Name:= _
"Darstellung der Werte"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Kennlinie"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Spannung in V"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Strom in A"
End With
ActiveSheet.Shapes("Diagramm 7").ScaleWidth 1.28, msoFalse, _ '******
msoScaleFromBottomRight
ActiveSheet.Shapes("Diagramm 7").ScaleHeight 1.44, msoFalse, _
msoScaleFromBottomRight
ActiveSheet.Shapes("Diagramm 7").ScaleWidth 1.18, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Diagramm 7").ScaleHeight 1.25, msoFalse, _
msoScaleFromTopLeft
ActiveChart.PlotArea.Select
With Selection.Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous
End With
Selection.Interior.ColorIndex = xlNone
Wenn ich da jetzt eine eigene Sub draus mache, und das ganze aus einer anderen Sub heraus aufrufe, bekomme ich in der Zeile, die ich hinten mit den Sternchen markiert habe, einen Fehler mit der Nummer '-2147024809(80070057)' und der Kurzbeschreibung "Das Element mit dem angegebenen Namen wurde nicht gefunden". Ich weiss zwar auch nicht so genau, wie der Makro-Rekorder auf "Diagramm 7" kommt, aber man sollte doch meinen, dass Excel sein selbst-produzierten Makros auch ausführen kann, oder?
Hat jemand eine Idee, was ich falsch mache?
Schönen Gruß
Andi