Makro instabil
16.01.2015 14:42:14
Remo
mittels folgendem VBA-Code kopiere ich mittels Schleife rund 50 Charts aus Excel nach PowerPoint, immer einen Chart pro Slide.
************
PPSlide.Select 'PPT-Slide anwählen
WS_C.ChartObjects(1).Chart.CopyPicture Appearance:=xlScreen, Format:=xlPicture 'Chart kopieren
Set PPShape = PPSlide.Shapes.Paste 'Chart als PPT-Shape-Objekt einfügen
With PPShape
'.Name = Tab_Name
.LockAspectRatio = True
.Height = 300
.Left = 46
.Top = 160
End With
Cht_Hoehe = PPShape.Height
Set PPShape = Nothing
*****************
Dabei habe ich in rund 2 von 3 Fällen kein Problem, das Makro läuft stabil. Immer wieder stürzt der Code in den obigen Zeilen jedoch ab...
Kann mir jemand weiter helfen? An was liegt es, was könnte ich anders schreiben, um die Stabilität zu erhöhen? Könnte es daran liegen, dass das Excel-File, aus welchem ich die Charts beziehe rund 16mb gross ist und das PowerPoint-File, in welches ich die Charts kopiere, schlussendlich rund 12mb gross wird?
Besten Dank für Eure Unterstützung!
Remo