Comment reproduire la disposition d'une diapo sur une autre
graynon
Messages postés
14
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Comment reproduire la disposition d'une diapo sur une autre
- Reproduire la mise en forme word - Accueil - Microsoft Office
- Numéroter diapo powerpoint - Guide
- Onglet disposition excel ✓ - Forum Excel
- Pilote scanner diapo silvercrest snd 3600 d2 ✓ - Forum MacOS
- Comment mettre une video sur un diapo - Guide
3 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
peut-être le contenu ne fait-il pas partie du layout?
peut-être le contenu ne fait-il pas partie du layout?
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
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