Ouvrez une présentation PowerPoint à partir d'Excel avec VBA et définissez ensuite la présentation d'une variable

Je dois poster un grand nombre de tableaux Excel à un document PowerPoint et je suis en train de construire une macro en VBA Excel pour le faire pour moi.

Je suis en mesure de correctement ouvrez la présentation PowerPoint que je veux mettre à jour, cependant, je ne sais pas comment définir la présentation que je viens d'ouvrir à une variable appelée MyPresentation.

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

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

Évidemment il y a un code supplémentaire, mais je vais essayer de définir la Présentation je viens d'ouvrir en ligne 3 le MyPresentation variable afin que je puisse référence le document que je viens d'ouvrir.

InformationsquelleAutor ChrisG | 2015-07-23
  1. 5

    J'ai fini par trouver une solution par le MVP Andy Pape.

    Certains extraits de code pertinentes pour les futurs utilisateurs. (Pour info Mon PPT était déjà visible quand je suis tombé sur le problème)

    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"`

    La recherche de la feuille de calcul Gourou, guide de l'ouverture de PPT à partir d'Excel VBA

    Alors:

    Set myPresentation = PowerPointApp.Presentations.Open(DestinationPPT)
    • Ceci me cause une "variable Objet ou variable bloc with non définie" zone en ce qui concerne la PowerPointApp variable. À l'aide de la fonction CreateObject pour définir PowerPointApp tout d'abord, comme dans ce.v1352 réponse, le problème a été résolu.
    InformationsquelleAutor ChrisG
  2. 1

    Vous devez d'abord ouvrir la voie à l'aide de fichiers ppt,
    ce que j'ai fait: 

    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