VBA Nouveau PPT à partir d'un modèle

[needz]

Bonjour à tous,

Est-il possible de coder la création d'une nouvelle présentation powerpoint à partir d'un modèle de conception depuis Excel ?

J'ai eu beau chercher je n'ai pas trouvé sur le web.

Merci d'avance pour vos réponses !

Guillaume

 

[needz]

Re : VBA Nouveau PPT à partir d'un modèle

Personne ne sait ? j'ai beau chercher et chercher je ne trouve pas de solutions ! J'ai bien une alternative : ouvrir un fichier model et l'enregistrer par la suite sous un autre nom mais ça ne me convient pas totalement...

 

[PMO2]

Re : VBA Nouveau PPT à partir d'un modèle

Bonjour,

Essayez le code suivant après avoir adapté la constante cernée par des ###

'### Constante à adapter ###
Const CHEMIN_MODELE As String = "C:\Program Files\Microsoft Office\Templates\Presentation Designs\Stream.pot"
'###########################

'/////////////////////////////////////////////////////////////
'/// Pour une liaison précoce nécessite Library PowerPoint ///
'/// C:\Program Files\Microsoft Office\OFFICExx\msppt.olb  ///
'/// Microsoft PowerPoint xx.0 Object Library              ///
'/////////////////////////////////////////////////////////////
Sub ModelePowerPoint()
Dim PP As Object    'PowerPoint.Application
Dim PRES As Object  'PowerPoint.Presentation
Dim SLID As Object  'PowerPoint.Slide
Set PP = CreateObject("Powerpoint.Application")
Set PRES = PP.Presentations.Add(msoTrue)
Set SLID = PRES.Slides.Add(1, 2)    '2 = ppLayoutText
PRES.ApplyTemplate Filename:=CHEMIN_MODELE
PP.Visible = True
Set SLID = Nothing
Set PRES = Nothing
Set PP = Nothing
End Sub

Cordialement.

PMO
Patrick Morange

 

[needz]

Re : VBA Nouveau PPT à partir d'un modèle

Merci ! J'y suis finalement arrivé aussi en utilisant une autre méthode :l'ouverture d'un template en lecture seule et l'enregistrement sous un autre nom. Mais merci pour ton code qui pourra sûrement être utile.

Cordialement,

Guillaume