Modification de PowerPoint intégré à partir d'Excel VBA
-
02-07-2019 - |
Question
J'ai une présentation PowerPoint intégrée dans un classeur Excel. Comment puis-je l'éditer (ouvrir, copier des diapositives, ajouter des données à des diapositives, fermer) à l'aide de VBA?
La solution
1. Ajouter une référence au modèle d'objet PowerPoint à votre application VBA
Dans la fenêtre VBA, choisissez Outils | Références
Recherchez la bibliothèque d'objets Microsoft Powerpoint 12.0 et vérifiez-la
2. Sélectionnez et activez l'objet de présentation PowerPoint
.ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb:=xlOpen
Remarque: ce code suppose que l'objet PowerPoint est nommé Objet 1 (regardez dans le coin supérieur gauche pour voir comment il s'appelle) et qu'il se trouve sur la feuille active.
3. Obtenir une référence à l'objet Présentation
Dim p As PowerPoint.Presentation
Set p = Selection.Object
4. Manipulez-le
Toutes les méthodes et propriétés d'un objet de présentation sont à votre disposition. Voici un exemple d’ajout d’une diapositive:
p.Slides.Add 1, ppLayoutBlank
5. Désélectionnez-le
Le moyen le plus simple consiste simplement à sélectionner une cellule.
[a1].Select
J'espère que ça aide!