Zu früh gefreut - Laufzeitfehler
09.01.2014 17:10:41
Flo
ich habe vor zwei Tagen bereits Hilfe von Beverly bekommen. Ich wollte Diagramme per VBA anpassen, je nach dem, wie viele Datenreihen enthalten sind. Ich dachte auch schon, das Problem sei gelöst, jedoch ist der Code instabil. Zunächst funktioniert es. Wenn dann jedoch die ungespeicherte Datei wieder geöffnet und das Makro ausgeführt wird, erhalte ich nur noch diese Fehlermeldung:
Laufzeitfehler '-2147467259 (80004005)':
Die Methode für Top für das Objekt PlotArea ist fehlgeschlagen.
Der Code sieht so aus:
Sub Makro1()
For Each chrDiagramm In Worksheets("Grafiken").ChartObjects
With chrDiagramm.Chart
lngPunkte = .SeriesCollection(1).Points.Count
If lngPunkte = 1 Then
.ChartArea.Height = 120
.PlotArea.Top = 25
.PlotArea.Height = 70
.Legend.Top = 95
.Legend.Height = 25
End If
If lngPunkte = 2 Then
.ChartArea.Height = 160
.PlotArea.Top = 25
.PlotArea.Height = 110
.Legend.Top = 135
.Legend.Height = 25
End If
If lngPunkte = 3 Then
.ChartArea.Height = 200
.PlotArea.Top = 25
.PlotArea.Height = 150
.Legend.Top = 175
.Legend.Height = 25
End If
End With
Next chrDiagramm
Application.ScreenUpdating = True
End Sub
Vielen Dank schon einmal für eure Hilfe! Hier noch die Datei!
Viele Grüße
Florian
https://www.herber.de/bbs/user/88746.xlsm