Powerpoint Präsentation von Excel aus unter neuem Namen abspeichern

  • Sonstige

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von sano.

    Powerpoint Präsentation von Excel aus unter neuem Namen abspeichern

    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:

    Visual Basic-Quellcode

    1. Private Sub ChartObjectsNachPowerpoint2()
    2. iter = 1
    4. While iter <= Sheets.Count
    5. Sheets(iter).Select
    8. For Each chtObj In ActiveSheet.ChartObjects
    9. chtObj.CopyPicture xlScreen, xlBitmap
    10. Set pApp = CreateObject("PowerPoint.Application")
    11. pApp.Visible = True
    12. pApp.Presentations.Open Filename:="D:\Test (2).ppt"
    13. pApp.ActivePresentation.Slides(1).Shapes.Paste.Select
    16. With pApp.ActiveWindow.Selection.ShapeRange
    17. .Top = 130
    18. .Left = 70
    19. .Height = 330
    20. .ScaleWidth 0.9, msoFalse, msoScaleFromTopLeft
    22. End With
    24. With pApp
    25. .SaveAs "D:\Test2.ppt", ppSaveAsPresentation
    26. .Close
    27. End With
    30. Next
    31. iter = iter + 1
    32. Wend
    33. 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“ ()

    Vielen Dank für die schnelle Rückmeldung! Ich habe jetzt die SaveAs Methode auf die Presentation angewandt.

    Jetzt bekomme ich die Fehlermeldung "Laufzeitfehler: 91 Objektvariable oder With - Blockvariable nicht festgelegt". Ich bin leider kein VB Profi und freue mich über jeden Tipp, was ich noch konkret ändern muss.

    Vielen Dank schon einmal im Voraus!! Ich hab schon Stunden rumgetüftelt und Foren durchsucht, aber seh wohl den Wald vor lauter Bäumen nicht ;)

    Visual Basic-Quellcode

    1. Private Sub ChartObjectsNachPowerpoint2()
    2. Dim oPS As PowerPoint.Presentation
    4. iter = 1
    6. While iter <= Sheets.Count
    7. Sheets(iter).Select
    10. For Each chtObj In ActiveSheet.ChartObjects
    11. chtObj.CopyPicture xlScreen, xlBitmap
    12. Set pApp = CreateObject("PowerPoint.Application")
    13. pApp.Visible = True
    14. pApp.Presentations.Open Filename:="D:\Test2.ppt"
    15. pApp.ActivePresentation.Slides(1).Shapes.Paste.Select
    18. With pApp.ActiveWindow.Selection.ShapeRange
    19. .Top = 130
    20. .Left = 70
    21. .Height = 330
    22. .ScaleWidth 0.9, msoFalse, msoScaleFromTopLeft
    24. End With
    26. With oPS
    27. .SaveAs ("D:\Test3.ppt")
    28. .Close
    29. End With
    32. Next
    33. iter = iter + 1
    34. Wend
    35. End Sub




    Edit by LaMa5:
    - CODE-Tag in VB-Tag geändert, das nächste Mal bitte selbst dran denken

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „LaMa5“ ()

Facebook
Telefonspende