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 23474 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 février 2025 - 10 juin 2021 à 20:45
yg_be Messages postés 23474 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 février 2025 - 10 juin 2021 à 20:45
A voir également:
- Comment reproduire la disposition d'une diapo sur une autre
- Reproduire la mise en forme word - Accueil - Microsoft Office
- Raccourci reproduire la mise en forme ✓ - Forum Excel
- Pilote scanner diapo silvercrest snd 3600 d2 ✓ - Forum MacOS
- Enregistrer mouvement souris reproduire - Télécharger - Divers Utilitaires
- Mise à disposition de boucle locale dédiée ✓ - Forum Freebox
3 réponses
yg_be
Messages postés
23474
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 février 2025
Ambassadeur
1 568
10 juin 2021 à 16:51
10 juin 2021 à 16:51
bonjour,
peut-être le contenu ne fait-il pas partie du layout?
peut-être le contenu ne fait-il pas partie du layout?
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
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 ?
oui , je me suis posé la question. Il y a t il un moyen de connaitre le contenu du layout ?
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
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
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
23474
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 février 2025
1 568
10 juin 2021 à 20:45
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.