Insérer slide vierge sans changer le numéro des slides suivantes
Résolu/Fermé
A voir également:
- Insérer slide vierge sans changer le numéro des slides suivantes
- Changer dns - Guide
- Comment supprimer une page vierge sur word - Guide
- Numero prive - Guide
- Suivi des modifications word - Guide
- Insérer signature word - Guide
9 réponses
C-Claire
Messages postés
4014
Date d'inscription
samedi 8 novembre 2014
Statut
Membre
Dernière intervention
3 octobre 2016
2 232
18 juin 2015 à 11:40
18 juin 2015 à 11:40
Bonjour Tito,
Voici une solution, un peu moins pire que la numérotation manuelle si tu n'as pas trop de diapos à ne pas numéroter et si tu acceptes les macro-commandes ;-)
1. Masque les diapos vierges
2. Copie/colle le code VBA suivant :
Sub Pagination()
Dim x As Integer
Dim Forme As Shape
Dim Diapo As Slide
x = -1
For Each Diapo In ActivePresentation.Slides
If Diapo.SlideShowTransition.Hidden Then
Diapo.HeadersFooters.SlideNumber.Visible = False
Else
Diapo.HeadersFooters.SlideNumber.Visible = True
Set Forme = ObtNum(Diapo)
x = x + 1
If Not Forme Is Nothing Then
Forme.TextFrame.TextRange = CStr(x + 1)
End If
End If
Next Diapo
End Sub
Function ObtNum(thisSlide As Slide) As Shape
For Each ObtNum In thisSlide.Shapes
If ObtNum.Type = msoPlaceholder Then
If ObtNum.PlaceholderFormat.Type = ppPlaceholderSlideNumber Then
Exit Function
End If
End If
Next ObtNum
End Function
3. Exécute la macro. Elle est instantanée. J'aurais pu ajouter un message "Repagination terminée" mais bon...
4. Démasque les diapos vierges.
Si tu ne sais pas mettre en oeuvre cette solution mais qu'elle t'intéresse, nous te donnerons la marche à suivre.
Voici une solution, un peu moins pire que la numérotation manuelle si tu n'as pas trop de diapos à ne pas numéroter et si tu acceptes les macro-commandes ;-)
1. Masque les diapos vierges
2. Copie/colle le code VBA suivant :
Sub Pagination()
Dim x As Integer
Dim Forme As Shape
Dim Diapo As Slide
x = -1
For Each Diapo In ActivePresentation.Slides
If Diapo.SlideShowTransition.Hidden Then
Diapo.HeadersFooters.SlideNumber.Visible = False
Else
Diapo.HeadersFooters.SlideNumber.Visible = True
Set Forme = ObtNum(Diapo)
x = x + 1
If Not Forme Is Nothing Then
Forme.TextFrame.TextRange = CStr(x + 1)
End If
End If
Next Diapo
End Sub
Function ObtNum(thisSlide As Slide) As Shape
For Each ObtNum In thisSlide.Shapes
If ObtNum.Type = msoPlaceholder Then
If ObtNum.PlaceholderFormat.Type = ppPlaceholderSlideNumber Then
Exit Function
End If
End If
Next ObtNum
End Function
3. Exécute la macro. Elle est instantanée. J'aurais pu ajouter un message "Repagination terminée" mais bon...
4. Démasque les diapos vierges.
Si tu ne sais pas mettre en oeuvre cette solution mais qu'elle t'intéresse, nous te donnerons la marche à suivre.
Raymond PENTIER
Messages postés
58719
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
7 novembre 2024
17 233
17 juin 2015 à 03:20
17 juin 2015 à 03:20
C'est très simple :
remplace la pagination automatique par une pagination manuelle !
remplace la pagination automatique par une pagination manuelle !
C-Claire
Messages postés
4014
Date d'inscription
samedi 8 novembre 2014
Statut
Membre
Dernière intervention
3 octobre 2016
2 232
17 juin 2015 à 06:48
17 juin 2015 à 06:48
Bonjour Tito,
Ajouter une diapo vierge ? Pour marquer une pause dans la présentation ? Pour introduire une animation ?
Ajouter une diapo avec du contenu ? Dans ce cas, pourquoi ne pas la masquer et la mettre à la fin de la présentation, avec un lien sur la diapo 3 qui l'affichera et sur cette diapo un lien de retour à la diapo 3 ?
Si tu nous dis pourquoi tu veux insérer une diapo non numérotée, nous pourrons peut-être t'orienter vers d'autres solutions.
Ajouter une diapo vierge ? Pour marquer une pause dans la présentation ? Pour introduire une animation ?
Ajouter une diapo avec du contenu ? Dans ce cas, pourquoi ne pas la masquer et la mettre à la fin de la présentation, avec un lien sur la diapo 3 qui l'affichera et sur cette diapo un lien de retour à la diapo 3 ?
Si tu nous dis pourquoi tu veux insérer une diapo non numérotée, nous pourrons peut-être t'orienter vers d'autres solutions.
Merci beaucoup,
L'objectif est l'impression papier en recto - verso une page par page avec une brochure sur la longueur.
En effet, je souhaite que certaines slides s'impriment naturellement face à face et se répondent tandis que d'autres doivent rester seules (avec donc une slide blanche en face donc).
A ce jour, j'insère des slides blanches "en position pair" avec seulement le numéro de page (afin que le lecteur soit rassuré sur le fait qu'il ne manque pas de slide).
Les slides seules sont donc les slides impaires.
les slides en facing i.e. celles qui se répondent sont donc les slides paires et impaires.
J'espère que ma réponse vous éclaire !
Merci beaucoup,
L'objectif est l'impression papier en recto - verso une page par page avec une brochure sur la longueur.
En effet, je souhaite que certaines slides s'impriment naturellement face à face et se répondent tandis que d'autres doivent rester seules (avec donc une slide blanche en face donc).
A ce jour, j'insère des slides blanches "en position pair" avec seulement le numéro de page (afin que le lecteur soit rassuré sur le fait qu'il ne manque pas de slide).
Les slides seules sont donc les slides impaires.
les slides en facing i.e. celles qui se répondent sont donc les slides paires et impaires.
J'espère que ma réponse vous éclaire !
Merci beaucoup,
m@rina
Messages postés
21076
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
6 novembre 2024
11 346
17 juin 2015 à 14:41
17 juin 2015 à 14:41
Bonjour
C'est du travail pour Word.
La seule solution t'a été donnée par Raymond.
m@rina
C'est du travail pour Word.
La seule solution t'a été donnée par Raymond.
m@rina
madmyke
Messages postés
53080
Date d'inscription
dimanche 20 janvier 2008
Statut
Modérateur
Dernière intervention
24 juillet 2024
12 169
>
Tito
Modifié par madmyke le 17/06/2015 à 17:08
Modifié par madmyke le 17/06/2015 à 17:08
C'est un peu comme être sur qu'une pelleteuse peut aussi avoir les sièges en cuirs et pneus taille basse.... ;) dans l'absolu c'est possible :p
madmyke
Messages postés
53080
Date d'inscription
dimanche 20 janvier 2008
Statut
Modérateur
Dernière intervention
24 juillet 2024
12 169
Modifié par madmyke le 17/06/2015 à 17:05
Modifié par madmyke le 17/06/2015 à 17:05
Il y a des solutions:
- numéroter "à la main" en ajoutant un élément
- Utiliser deux slides Master, un qui numérote et un autre qui ne le fait pas, puis appliquer à un slide sur deux.
- Demander à Microsoft d'ajouter la fonction et attendre la prochaine version.
Comment disait un grand homme, parfois nous attendons du possible des programmes ce qui ne l'est pas.
- numéroter "à la main" en ajoutant un élément
- Utiliser deux slides Master, un qui numérote et un autre qui ne le fait pas, puis appliquer à un slide sur deux.
- Demander à Microsoft d'ajouter la fonction et attendre la prochaine version.
Comment disait un grand homme, parfois nous attendons du possible des programmes ce qui ne l'est pas.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Raymond PENTIER
Messages postés
58719
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
7 novembre 2024
17 233
17 juin 2015 à 17:05
17 juin 2015 à 17:05
Alors attend patiemment que quelqu'un, éclairé par tes explications, découvre une solution miracle !
J'espère pour toi que ce n'est pas un travail trop urgent ...
La méthode Coué fonctionne dans certains domaines ; pas en informatique !
J'espère pour toi que ce n'est pas un travail trop urgent ...
La méthode Coué fonctionne dans certains domaines ; pas en informatique !
Merci à tous,
Pour le moment, en passant par pdf et en insérant une page vierge aux bons endroits, ça fonctionne.
mais je continue à chercher !
@ suivre donc, ! ! !
Pour le moment, en passant par pdf et en insérant une page vierge aux bons endroits, ça fonctionne.
mais je continue à chercher !
@ suivre donc, ! ! !
Raymond PENTIER
Messages postés
58719
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
7 novembre 2024
17 233
17 juin 2015 à 18:44
17 juin 2015 à 18:44
Ta question initiale était, rappelons-le, "Je souhaite insérer une slide dans une présen-tation powerpoint", confirmée au post #6 par "je souhaite rester sur powerpoint" ... C'est pourquoi personne ne t'a proposé PDF !
madmyke
Messages postés
53080
Date d'inscription
dimanche 20 janvier 2008
Statut
Modérateur
Dernière intervention
24 juillet 2024
12 169
>
Raymond PENTIER
Messages postés
58719
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
7 novembre 2024
17 juin 2015 à 20:56
17 juin 2015 à 20:56
+1
madmyke
Messages postés
53080
Date d'inscription
dimanche 20 janvier 2008
Statut
Modérateur
Dernière intervention
24 juillet 2024
12 169
17 juin 2015 à 20:55
17 juin 2015 à 20:55
:-))
m@rina
Messages postés
21076
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
6 novembre 2024
11 346
19 juin 2015 à 08:28
19 juin 2015 à 08:28
Et quand cite le travail des autres, on a la décence de citer ses sources, même si l'on a tranformé en partie les noms anglais des variables en noms français !
https://stackoverflow.com/questions/26362448/how-not-to-count-page-numbers-for-hidden-slides-in-ppt
Ce qui'il faut également préciser : il faudra systématiquement relancer la macro à chaque modification (ajout, suppression de slides, masquage ou non de slides).
m@rina
https://stackoverflow.com/questions/26362448/how-not-to-count-page-numbers-for-hidden-slides-in-ppt
Ce qui'il faut également préciser : il faudra systématiquement relancer la macro à chaque modification (ajout, suppression de slides, masquage ou non de slides).
m@rina
C-Claire
Messages postés
4014
Date d'inscription
samedi 8 novembre 2014
Statut
Membre
Dernière intervention
3 octobre 2016
2 232
19 juin 2015 à 10:46
19 juin 2015 à 10:46
Bonjour m@rina,
es-tu bien sûre que c'est "le travail des autres" ?!
Si tu savais d'où vient cette macro et son histoire, tu te serais bien gardée de faire ce commentaire.
En revanche, tu as parfaitement raison d'ajouter qu'il faut relancer la macro.
À Tito de voir si cela vaut la peine.
C-Claire
es-tu bien sûre que c'est "le travail des autres" ?!
Si tu savais d'où vient cette macro et son histoire, tu te serais bien gardée de faire ce commentaire.
En revanche, tu as parfaitement raison d'ajouter qu'il faut relancer la macro.
À Tito de voir si cela vaut la peine.
C-Claire
m@rina
Messages postés
21076
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
6 novembre 2024
11 346
20 juin 2015 à 02:22
20 juin 2015 à 02:22
absolument... des autres ! Je ne vous ai jamais vu écrire de macro... ca se saurait depuis le temps !
Mentalité de tisane ! beurk...
Mentalité de tisane ! beurk...
23 juin 2015 à 11:56
Merci pour cette réponse qui semble répondre à ma recherche !
En revanche, j'avoue ne pas savoir la mettre en oeuvre,
Pouvez vous m'aider ?
Merci 1000 fois
23 juin 2015 à 12:12
pour la mise en oeuvre, tu peux procéder de la façon suivante :
- dans PowerPoint avec ta présentation ouverte, appuie sur ALT F11 pour ouvrir la fenêtre de l'éditeur VBA (Visual Basic Application)
- menu "Insertion", "Module"
- copie/colle le code donné dans mon message précédent
- ferme l'éditeur.
Pour exécuter la macro :
- appuie sur ALT F8 pour ouvrir la boîte des macros
- double-clique sur la macro "Pagination".
Elle est très rapide.
Si tu dois la relancer souvent, tu peux l'ajouter dans la barre d'outils Accès rapide.
Note 2 choses :
- les macros doivent être activées (;
- tu devras enregistrer ta présentation avec l'extension .pptm sinon la macro ne fonctionnera pas.
C-Claire
23 juin 2015 à 15:55
en suivant pas à pas, je ne parviens pas à mes fins.
je dois probablement faire quelque chose de travers !
23 juin 2015 à 15:58
As-tu repris aussi les points 1 et 4 du 1er message ?
C-Claire
23 juin 2015 à 16:01
j'avais bien entendu repris les points précédents.