Probleme mit einem CHarts.add Befehl
15.05.2006 13:20:59
Swen
ich erzeige wie folgt ein Diagramm
' Diagramm erstellen '
' Datenbereich errechnen '
intRangeData = (24 + Worksheets("Coordinates").Cells(17, 3).Value) - 1
Worksheets("Layout1").Cells(1, 1).Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.Name = "Dia"
ActiveChart.SetSourceData Source:=Sheets("Coordinates").Range(Sheets("Coordinates").Cells(24, 4), _
Sheets("Coordinates").Cells(intRangeData, 5)), PlotBy:=xlColumns
ActiveChart.PlotArea.Select
ActiveChart.Location Where:=xlLocationAsObject, Name:="Layout1"
ActiveChart.HasTitle = False
ActiveChart.Axes(xlCategory, xlPrimary).HasTitle = False
ActiveChart.Axes(xlCategory).HasMajorGridlines = False
ActiveChart.Axes(xlCategory).HasMinorGridlines = False
ActiveChart.Axes(xlValue, xlPrimary).HasTitle = False
ActiveChart.Axes(xlValue).HasMajorGridlines = False
ActiveChart.Axes(xlValue).HasMinorGridlines = False
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowNone, LegendKey:=False
ActiveChart.PlotArea.Width = 750
ActiveChart.PlotArea.Height = 750
es kommt aber immer eine Fehlermeldung Laufzeitfehler 1004,
ich weis aber ncht wie ich dieses in denGriff bekommen soll.
Komisch ist das das selbe Makro bei einem Kollegen läuft!
Hat jemand damit Erfahrungen was hier los ist?
Gruß
Swen