Bonjour Tous,
J'ai un problème de numérotations de diapositives.
Je sais insérer des numéros de diapositive mais je voudrais rajouter le
nombre total de pages sur une diapositive. Exemple : 3/10.
J'essaie le code comme dans word mais ça ne fonctionne pas.
Je vous remercie.
Nubienne
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Tisane
Bonjour Nubienne,
J'ai un problème de numérotations de diapositives. Je sais insérer des numéros de diapositive mais je voudrais rajouter le nombre total de pages sur une diapositive. Exemple : 3/10. J'essaie le code comme dans word mais ça ne fonctionne pas.
Non, non... pas comme Word... Soit tu le tapes manuellement, soit tu utilises ce bout de code : Le total de diapos sera placé dans la zone "Pied de page" du menu Affichage | En-tête-pied de page (et en effaçant le cas échéant son contenu) :
Sub Total_Pages() Dim NbPages As String With Application.ActivePresentation NbPages = ActivePresentation.Slides.Count End With Set PiedPage = ActivePresentation.SlideMaster.HeadersFooters With PiedPage .Footer.Visible = True .Footer.Text = "" .Footer.Text = NbPages End With End Sub
Pour obtenir le n° sur le total comme 3/10 : - clique dans l'espace réservé nommé "Pied de page" en bas du masque de diapos et à gauche de <pied de page> - menu Insertion | Numéro de diapositive - tape le / Tu obtiendras ceci dans la même zone : <N°> / <pied de page>
Eventuellement, crée un bouton dans une des barres d'outils pour exécuter la macro plus facilement.
-- Tisane
Bonjour Nubienne,
J'ai un problème de numérotations de diapositives.
Je sais insérer des numéros de diapositive mais je voudrais rajouter
le nombre total de pages sur une diapositive. Exemple : 3/10.
J'essaie le code comme dans word mais ça ne fonctionne pas.
Non, non... pas comme Word...
Soit tu le tapes manuellement, soit tu utilises ce bout de code :
Le total de diapos sera placé dans la zone "Pied de page" du menu Affichage
| En-tête-pied de page (et en effaçant le cas échéant son contenu) :
Sub Total_Pages()
Dim NbPages As String
With Application.ActivePresentation
NbPages = ActivePresentation.Slides.Count
End With
Set PiedPage = ActivePresentation.SlideMaster.HeadersFooters
With PiedPage
.Footer.Visible = True
.Footer.Text = ""
.Footer.Text = NbPages
End With
End Sub
Pour obtenir le n° sur le total comme 3/10 :
- clique dans l'espace réservé nommé "Pied de page" en bas du masque de
diapos et à gauche de <pied de page>
- menu Insertion | Numéro de diapositive
- tape le /
Tu obtiendras ceci dans la même zone : <N°> / <pied de page>
Eventuellement, crée un bouton dans une des barres d'outils pour exécuter la
macro plus facilement.
J'ai un problème de numérotations de diapositives. Je sais insérer des numéros de diapositive mais je voudrais rajouter le nombre total de pages sur une diapositive. Exemple : 3/10. J'essaie le code comme dans word mais ça ne fonctionne pas.
Non, non... pas comme Word... Soit tu le tapes manuellement, soit tu utilises ce bout de code : Le total de diapos sera placé dans la zone "Pied de page" du menu Affichage | En-tête-pied de page (et en effaçant le cas échéant son contenu) :
Sub Total_Pages() Dim NbPages As String With Application.ActivePresentation NbPages = ActivePresentation.Slides.Count End With Set PiedPage = ActivePresentation.SlideMaster.HeadersFooters With PiedPage .Footer.Visible = True .Footer.Text = "" .Footer.Text = NbPages End With End Sub
Pour obtenir le n° sur le total comme 3/10 : - clique dans l'espace réservé nommé "Pied de page" en bas du masque de diapos et à gauche de <pied de page> - menu Insertion | Numéro de diapositive - tape le / Tu obtiendras ceci dans la même zone : <N°> / <pied de page>
Eventuellement, crée un bouton dans une des barres d'outils pour exécuter la macro plus facilement.
-- Tisane
Nubienne
Bonjour Tisane, Merci pour le code. Nubienne
"Tisane" a écrit dans le message de news:
Bonjour Nubienne,
J'ai un problème de numérotations de diapositives. Je sais insérer des numéros de diapositive mais je voudrais rajouter le nombre total de pages sur une diapositive. Exemple : 3/10. J'essaie le code comme dans word mais ça ne fonctionne pas.
Non, non... pas comme Word... Soit tu le tapes manuellement, soit tu utilises ce bout de code : Le total de diapos sera placé dans la zone "Pied de page" du menu Affichage | En-tête-pied de page (et en effaçant le cas échéant son contenu) :
Sub Total_Pages() Dim NbPages As String With Application.ActivePresentation NbPages = ActivePresentation.Slides.Count End With Set PiedPage = ActivePresentation.SlideMaster.HeadersFooters With PiedPage .Footer.Visible = True .Footer.Text = "" .Footer.Text = NbPages End With End Sub
Pour obtenir le n° sur le total comme 3/10 : - clique dans l'espace réservé nommé "Pied de page" en bas du masque de diapos et à gauche de <pied de page> - menu Insertion | Numéro de diapositive - tape le / Tu obtiendras ceci dans la même zone : <N°> / <pied de page>
Eventuellement, crée un bouton dans une des barres d'outils pour exécuter la macro plus facilement.
-- Tisane
Bonjour Tisane,
Merci pour le code.
Nubienne
"Tisane" <b.tisane@laposte.net> a écrit dans le message de news:
OW4XbM77GHA.4996@TK2MSFTNGP04.phx.gbl...
Bonjour Nubienne,
J'ai un problème de numérotations de diapositives.
Je sais insérer des numéros de diapositive mais je voudrais rajouter
le nombre total de pages sur une diapositive. Exemple : 3/10.
J'essaie le code comme dans word mais ça ne fonctionne pas.
Non, non... pas comme Word...
Soit tu le tapes manuellement, soit tu utilises ce bout de code :
Le total de diapos sera placé dans la zone "Pied de page" du menu
Affichage | En-tête-pied de page (et en effaçant le cas échéant son
contenu) :
Sub Total_Pages()
Dim NbPages As String
With Application.ActivePresentation
NbPages = ActivePresentation.Slides.Count
End With
Set PiedPage = ActivePresentation.SlideMaster.HeadersFooters
With PiedPage
.Footer.Visible = True
.Footer.Text = ""
.Footer.Text = NbPages
End With
End Sub
Pour obtenir le n° sur le total comme 3/10 :
- clique dans l'espace réservé nommé "Pied de page" en bas du masque de
diapos et à gauche de <pied de page>
- menu Insertion | Numéro de diapositive
- tape le /
Tu obtiendras ceci dans la même zone : <N°> / <pied de page>
Eventuellement, crée un bouton dans une des barres d'outils pour exécuter
la macro plus facilement.
J'ai un problème de numérotations de diapositives. Je sais insérer des numéros de diapositive mais je voudrais rajouter le nombre total de pages sur une diapositive. Exemple : 3/10. J'essaie le code comme dans word mais ça ne fonctionne pas.
Non, non... pas comme Word... Soit tu le tapes manuellement, soit tu utilises ce bout de code : Le total de diapos sera placé dans la zone "Pied de page" du menu Affichage | En-tête-pied de page (et en effaçant le cas échéant son contenu) :
Sub Total_Pages() Dim NbPages As String With Application.ActivePresentation NbPages = ActivePresentation.Slides.Count End With Set PiedPage = ActivePresentation.SlideMaster.HeadersFooters With PiedPage .Footer.Visible = True .Footer.Text = "" .Footer.Text = NbPages End With End Sub
Pour obtenir le n° sur le total comme 3/10 : - clique dans l'espace réservé nommé "Pied de page" en bas du masque de diapos et à gauche de <pied de page> - menu Insertion | Numéro de diapositive - tape le / Tu obtiendras ceci dans la même zone : <N°> / <pied de page>
Eventuellement, crée un bouton dans une des barres d'outils pour exécuter la macro plus facilement.
