Modification de PowerPoint intégré à partir d'Excel VBA

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?

Answer 1

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!