Hallo!
Ich habe eine kleine Frage und wäre um Unterstützung dankbar. Bin grad dabei ein Skript zu schreiben, welches sämtliche Diagramme in Excel als Bild in eine Powerpoint Datei kopiert. Wenn jeweils das Bild auf der Powerpointfolie eingefügt wurde, soll die Folie unter einem bestimmten Namen (neu) abgespeichert werden.
Ich habe schon einige Foren durchforstet... Fast alles funktioniert (auch das öffnen der Präsentation)- nur beim abspeichern der jeweiligen Präsentationsfolie erscheint Laufzeitfehler '438' (in Excel 2007 und Excel 2010). Habt ihr einen tipp für mich? anbei kommt der Code fürs exportieren der shapes:
Edit by LaMa5:
-->*moved* (Grundlagen => VBA)
- CODE-Tag in VB-Tag geändert
Ich habe eine kleine Frage und wäre um Unterstützung dankbar. Bin grad dabei ein Skript zu schreiben, welches sämtliche Diagramme in Excel als Bild in eine Powerpoint Datei kopiert. Wenn jeweils das Bild auf der Powerpointfolie eingefügt wurde, soll die Folie unter einem bestimmten Namen (neu) abgespeichert werden.
Ich habe schon einige Foren durchforstet... Fast alles funktioniert (auch das öffnen der Präsentation)- nur beim abspeichern der jeweiligen Präsentationsfolie erscheint Laufzeitfehler '438' (in Excel 2007 und Excel 2010). Habt ihr einen tipp für mich? anbei kommt der Code fürs exportieren der shapes:
Visual Basic-Quellcode
- Private Sub ChartObjectsNachPowerpoint2()
- iter = 1
- While iter <= Sheets.Count
- Sheets(iter).Select
- For Each chtObj In ActiveSheet.ChartObjects
- chtObj.CopyPicture xlScreen, xlBitmap
- Set pApp = CreateObject("PowerPoint.Application")
- pApp.Visible = True
- pApp.Presentations.Open Filename:="D:\Test (2).ppt"
- pApp.ActivePresentation.Slides(1).Shapes.Paste.Select
- With pApp.ActiveWindow.Selection.ShapeRange
- .Top = 130
- .Left = 70
- .Height = 330
- .ScaleWidth 0.9, msoFalse, msoScaleFromTopLeft
- End With
- With pApp
- .SaveAs "D:\Test2.ppt", ppSaveAsPresentation
- .Close
- End With
- Next
- iter = iter + 1
- Wend
- End Sub
Edit by LaMa5:
-->*moved* (Grundlagen => VBA)
- CODE-Tag in VB-Tag geändert
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „LaMa5“ ()