Comment reproduire la disposition d'une diapo sur une autre

Fermé

graynon Messages postés 14 Date d'inscription vendredi 27 juillet 2007 Statut Membre Dernière intervention 10 juin 2021 - 10 juin 2021 à 16:41
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 - 10 juin 2021 à 20:45

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

A voir également:

Comment reproduire la disposition d'une diapo sur une autre
Ia diapo - Guide
Votre envoi n'a pas pu être distribué ce jour et sera mis à disposition au bureau de poste. le choix d'une date de relivraison ou d'un point de retrait est possible jusqu'à minuit sur notre site internet. ✓ - Forum Consommation & Internet
Mise à disposition de boucle locale dédiée ✓ - Forum Réseaux sociaux
Pilote scanner diapo silvercrest snd 3600 d2 ✓ - Forum MacOS
Free boucle locale dédiée = faut-il ne pas payer ? ✓ - Forum Réseaux sociaux

3 réponses

Réponse 1 / 3

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
10 juin 2021 à 16:51

bonjour,
peut-être le contenu ne fait-il pas partie du layout?

Réponse 2 / 3

graynon Messages postés 14 Date d'inscription vendredi 27 juillet 2007 Statut Membre Dernière intervention 10 juin 2021 7
10 juin 2021 à 17:20

Bjr yg,
oui , je me suis posé la question. Il y a t il un moyen de connaitre le contenu du layout ?

Réponse 3 / 3

graynon Messages postés 14 Date d'inscription vendredi 27 juillet 2007 Statut Membre Dernière intervention 10 juin 2021 7
10 juin 2021 à 18:19

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

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
10 juin 2021 à 20:45

c'est en effet sans doute plus logique, dans ton cas, de recopier la diapo, plutôt que sa mise en page.

Discussions similaires

Onglet disposition Excel ne s'affiche pas

Corriger fautes d'orthographe

Windows Store ne fonctionnent plus

Afficher le plan dans chaque diapositive

L'onglet Disposition pour les tableaux dans Word 2019

Discussions similaires

Newsletters