Insérer slide vierge sans changer le numéro des slides suivantes
Résolu
Tito
-
Ls -
Ls -
Bonjour à tous,
Je souhaite insérer une slide dans une présentation powerpoint sans que celle-ci soit prise en compte dans la numérotation.
En clair, je souhaite que la slide insérée entre la slide 3 et 4 ne devienne pas une slide n°4 !
Please help !!
Merci beaucoup,
Tito
Je souhaite insérer une slide dans une présentation powerpoint sans que celle-ci soit prise en compte dans la numérotation.
En clair, je souhaite que la slide insérée entre la slide 3 et 4 ne devienne pas une slide n°4 !
Please help !!
Merci beaucoup,
Tito
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
- Suivi des modifications word - Guide
- Numero prive - Guide
- Insérer video powerpoint - Guide
9 réponses
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.
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,
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
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
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, ! ! !
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
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
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
en suivant pas à pas, je ne parviens pas à mes fins.
je dois probablement faire quelque chose de travers !
As-tu repris aussi les points 1 et 4 du 1er message ?
C-Claire
j'avais bien entendu repris les points précédents.