Ich werde noch irre!
In Sheet(1) habe ich Werte (bspw. A1:E1). In Sheet(2) habe ich ein Diagramm mit 5 Balken und Wertetabelle die Grundlage für die Balken sind. In die Tabelle werden die Werte von Sheet(1) zeilenweise kopiert und das Diagramm bei jeder kopieraktion mit xlcalucaltionautomatic aktualisiert und nach Powerpoint kopiert. Ich arbeite insgesamt 100 Zeilen in Sheet(1) ab und habe somit 100 unterschiedliche Diagramme die ich step by step in Powerpoint kopiere. Hier kopiere ich immer 5 auf ein Slide, somit habe ich hinterher 20 Slides.
Hierzu verwende ich folgenden Code:
Worksheets(2).ChartObjects(1).Select
Worksheets(2).ChartObjects(1).Chart.CopyPicture Size:=xlScreen
' Positioning pasted chart
objPP_Slide.Select
objPP_Slide.Shapes.Paste.Select
Er bricht bei "objPP_Slide.Shapes.Paste.Select ab und sagt mir "Shapes.Paste: invalid request. Clipboard is empty or contains data which may not be pasted here"Problem: Manchmal läuft er durch, manchmal bricht er auf Slide 2 ab, manchmal auf Slide 4. (Also immer mit den gleichen Daten in Sheet(1)).
Hat jemand einen Hinweis, woran das liegen kann? Dafür wäre ich echt sehr dankbar, ich weiss nämlich nicht weiter.
VG
Tobi