Öffnen Sie eine PowerPoint-Präsentation aus Excel mit VBA und legen Sie dann die Präsentation in eine variable

Habe ich viel post von Excel-Diagrammen zu einem bestimmten PowerPoint-Dokument und ich Baue Sie ein makro in Excel VBA zu tun es für mich.

Ich bin in der Lage, richtig öffnen Sie die PowerPoint Präsentation, die ich will, um zu aktualisieren, allerdings weiß ich nicht, wie die Präsentation habe ich nur geöffnet, um eine variable namens MyPresentation.

Dim myPresentation As PowerPoint.Presentation
Dim PowerPointApp As PowerPoint.Application

PowerPointApp.Presentations.Open Filename:="obscured filepath and name"`

Offensichtlich gibt es einige zusätzlichen code, aber ich bin versucht, in der Präsentation, die ich soeben eröffnet, die Linie 3 eingestellt, um die MyPresentation variable, damit ich den Verweis auf das Dokument, das ich gerade geöffnet.

InformationsquelleAutor ChrisG | 2015-07-23
  1. 5

    Landete ich Suche nach einer Lösung, die von der MVP Andy Pope.

    Einige relevante code-snippets für zukünftige Nutzer. (FYI, Meine PPT war schon sichtbar, wenn ich lief in das problem)

    Dim DestinationPPT As String
Dim PowerPointApp As PowerPoint.Application
Dim myPresentation As PowerPoint.Presentation

'Easier to define manually set links up front so it's easier to change/modify
DestinationPPT = "C:\yourfilepath\yourfilename.pptx"`

    Lookup-Arbeitsblatt Guru ' s guide zu öffnen PPT-aus Excel VBA -

    Dann:

    Set myPresentation = PowerPointApp.Presentations.Open(DestinationPPT)
    • Dies bewirkt, dass mich eine 'Objekt-variable oder With-block variable nicht festgelegt" Gebiet mit Bezug auf die PowerPointApp variable. Verwendung von CreateObject zu setzen PowerPointApp zunächst, wie im EG.v1352 die Antwort, das problem wurde behoben.
    InformationsquelleAutor ChrisG
  2. 1

    Zuerst müssen Sie ebnen den Weg für die Verwendung von ppt-Dateien
    was ich getan habe: 

    Dim DestinationPPT As String
Dim PowerPointApp As PowerPoint.Application
Dim myPresentation As PowerPoint.Presentation

Set PowerPointApp = CreateObject("PowerPoint.Application")

DestinationPPT = "path"
PowerPointApp.Presentations.Open (DestinationPPT)
    InformationsquelleAutor ec.v1352
Schreibe einen Kommentar