PlotArea lässt sich nicht automatisch setzen
20.07.2016 08:34:30
Roger
Ich habe seit heute ein Problem mit einem Makro was seit Jahren Problemlos läuft. In diesem lege ich ein Diagramm an und formatiere es. Beim Befehl PlotArea bricht das Makro mit der Meldung "Die Methode 'Left' für das Objekt 'PlotArea' ist fehlgeschlagen. Dabei ist es egal ob 'Left', 'Top', 'Width' oder 'Height' als erstes ausgeführt werden soll.
Das Kuriose dabei ist, dass wenn ich dann debuggen und dann ausführen anklicke kann ich das Makro ohne Fehler weiterlaufen lassen. Es liegt somit in meinen Augen keine Fehler in der Programmierung.
Hatte einer von euch auch schon einmal dieses Problem und kann mir helfen.
Hier ist der vereinfachte Code aus meinem Makro:
Sub test()
With Charts.Add
.Move After:=Sheets(Sheets.Count - 1)
.SetSourceData Source:=Range("Tabelle1!$B$2:$C$27")
.Name = "Test"
.ChartType = xlXYScatter
.Legend.Delete
.SetElement (msoElementChartTitleCenteredOverlay)
.Axes(xlValue).MinimumScale = 0
.Axes(xlCategory).MinimumScale = 0
.Axes(xlCategory).MaximumScale = 25
.Axes(xlCategory).MinorTickMark = xlOutside
.Axes(xlCategory).Format.Line.Weight = 1.25
.Axes(xlCategory).TickLabels.Orientation = 45
.SetElement (msoElementPrimaryCategoryGridLinesMajor)
.PlotArea.Left = 20
.PlotArea.Top = 55
.PlotArea.Width = 675
.PlotArea.Height = 420
End With
End Sub
Danke schon einmal im Voraus.