Bonjour à tous,
J'ai créé un set de Slide maison pour mes presentation Powerpoint.
Je souhaiterai créé un powerpoint via VBA et je voudrai pouvoir avoir accès à mon set de Slide.
J'ai donc écris le code suivant :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Sub creating_ppt()
Dim ppt As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
Dim ppSlide As PowerPoint.Slide
Set ppt = New PowerPoint.Application
ppt.Visible = True
ppt.Activate
Set ppPres = ppt.Presentations.Add
ppPres.ApplyTemplate "G:\OfficeTemplates\SharedTemplates\EN\Toto Group.potx"
Set ppSlide = ppPres.Slides.Add(1, X)
End Sub |
dans
Set ppSlide = ppPres.Slides.Add(1, X)
Je vois apparaitre à la place du X les Layout classiques de PPT (ppLAyoutBlank, ppLayoutChart ...) et pas ce que j'ai créé dans mon potx
Auriez vous une solution ?
Merci d'avance
Partager