Comment reproduire la disposition d'une diapo sur une autre

Signaler
Messages postés
14
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
10 juin 2021
-
Messages postés
15976
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
10 juin 2021
-
Bonjour,
j'ai créé sous ppt une présentation avec une diapo dont la disposition contient un titre et deux contenus.
Puis sous vba excel , je selectionne cette diapo pour dupliquer son layout dans une nouvelle diapo . Je récupere bien la zone titre (mal positionnée) dans la nouvelle diapo , mais pas les deux contenus. Ou est mon erreur ? avec mes remerciements pour une aide.

voici la partie du code concerné :
With ppPres
Diapo = .Slides.Count()
.Slides(Diapo).Select
Set PptLayout = .Slides(Diapo).CustomLayout
Diapo = Diapo + 1
Set pptSlide = .Slides.AddSlide(Diapo, PptLayout)
.Slides(Diapo).Select
End With

3 réponses

Messages postés
15976
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
10 juin 2021
866
bonjour,
peut-être le contenu ne fait-il pas partie du layout?
Messages postés
14
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
10 juin 2021
7
Bjr yg,
oui , je me suis posé la question. Il y a t il un moyen de connaitre le contenu du layout ?
Messages postés
14
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
10 juin 2021
7
Si ca peux aider , j'ai modifié mon code , la methode n'est pas trés jolie mais ca marche.
voila :
With ppPres
Diapo = .Slides.Count()
.Slides(Diapo).Duplicate ' permet de recupérer le layout
Diapo = Diapo + 1
.Slides(Diapo).Select
Nbs = .Slides(Diapo).Shapes.Count
For i = Nbs To Nbs - 2 Step -1
.Slides(Diapo).Shapes(i).Delete 'sup ,les 3 derniers shapes créés
Next i
End With
Messages postés
15976
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
10 juin 2021
866
c'est en effet sans doute plus logique, dans ton cas, de recopier la diapo, plutôt que sa mise en page.