Créer une nouvelle présentation PowerPoint à partie de Excel, VBA

La création d’un nouveau fichier de présentation PowerPoint est un processus simple; il vous suffit de suivre les étapes habituelles de création de l’application PowerPoint, puis d’ajouter une présentation avec l’expression Presentations. Voici un exemple du début à la fin, se terminant par un nouveau fichier de présentation et une diapositive initiale :

Sub CreerNouvellePresentation ()

' Déclarez des variables d'objet pour l'application PowerPoint

' et pour le fichier de présentation PowerPoint.

Dim powerpApp As Object, powerpPres As Object

' Déclarez la variable objet pour une diapositive PowerPoint.

Dim powerpSlide As Object

'Ouvrir PowerPoint.

Set powerpApp = CreateObject("PowerPoint.Application")

' Rendez l'application PowerPoint visible.

powerpApp.Visible = msoTrue

' Créez une nouvelle présentation et ajoutez une diapositive.

Set powerpPres = powerpApp.Presentations.Add

With powerpPres.Slides

' 11 est la constante numérique pour ppLayoutTitleOnly.

' La constante est utilisée avec la liaison tardive.

Set powerpSlide = .Add(.Count + 1, 11)

End With

' Enregistrez votre nouveau fichier.

powerpPres.SaveAs Filename:=ThisWorkbook.Path & "\CreerTest.pptx"

' Libérez la mémoire système réservée aux variables Object.

Set powerpApp = Nothing

Set powerpPres = Nothing

Set powerpSlide = Nothing

End Sub

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x