Chartobejekte
21.05.2017 10:53:42
Dennis
mit Hilfe einer Forumsteilnehmerin habe ich folgenden Code zum Kopieren von Chartobjekte von einem Worksheet auf ein anderes Worksheet gestrickt:
For Each chrObj In ws.ChartObjects
lngZaehler = lngZaehler + 1
'On Error Resume Next
strNameChrObj = ws.ChartObjects(lngZaehler).Name
ws.ChartObjects(lngZaehler).Copy
With Worksheets("Export PPT")
.Paste
If lngZaehler > 1 Then
.ChartObjects(lngZaehler).Top = .ChartObjects(lngZaehler - 1).Top + _
.ChartObjects(lngZaehler - 1).Height
.ChartObjects(lngZaehler).Left = .Range("A1").Left
End If
Call Achsenbeschriftung(lngZaehler)
Call Grafik_Größe(lngZaehler)
End With
Next
Der Code hat ein Problem mit der Zeile ws.ChartObjects(lngZaehler).Copy
Er kopiert die entsprechenden Chartobjekte nicht immer. Mit Glück läuft der Code durch, er kann aber auch bei unterschiedlichen Grafiken rausspringen. Manchmal bei Grafik 3, ein anderes Mal bei Grafik 7. Ich kann keine Systematik entdecken, weshalb er das eine Mal die Grafik kopiert, dass andere Mal nicht.
Um das Problem ein zugrenzen, lese ich den Name des jeweiligen Chart raus. Er spricht immer den richtigen Chart an. Ich verstehe nicht weshalb der Code dann nicht den richtigen Chart kopiert und eine Fehlermeldung ausgibt.
Hab jemand eine Idee?