OVH Cloud OVH Cloud

numérotation des diapos

5 réponses
Avatar
EliotNaiss
bonjour à tous,
est-il possible avec powerpoint 2000, en pied de page d'afficher comme word,
le numéro de la diapo en cours (oui) suivi du nombre total de diapos ?
merci
cordialement
eliot

5 réponses

Avatar
Tisane
Bonjour Eliot,

est-il possible avec powerpoint 2000, en pied de page d'afficher
comme word, le numéro de la diapo en cours (oui) suivi du nombre
total de diapos ? merci


Pas direct mais faisable. Voici une procédure :

Le module ci-dessous compte les diapositives et place le total 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 (x/xx) :
- 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 dois obtenir ceci : <N°> / <pied de page>
Pour ajouter du texte en pied de page, place-le à gauche de <N°>
Exemple : Ton texte - <N°> / <pied de page>

Eventuellement, crée un bouton dans une des barres d'outils pour exécuter la
macro plus facilement.

--
Tisane

Avatar
EliotNaiss
Bonjour Tisane,
merci , je vais tester cela ce soir.
Bonne journée
Eliot
"Tisane" a écrit dans le message de news:
%
Bonjour Eliot,

est-il possible avec powerpoint 2000, en pied de page d'afficher
comme word, le numéro de la diapo en cours (oui) suivi du nombre
total de diapos ? merci


Pas direct mais faisable. Voici une procédure :

Le module ci-dessous compte les diapositives et place le total 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 (x/xx) :
- 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 dois obtenir ceci : <N°> / <pied de page>
Pour ajouter du texte en pied de page, place-le à gauche de <N°>
Exemple : Ton texte - <N°> / <pied de page>

Eventuellement, crée un bouton dans une des barres d'outils pour exécuter
la macro plus facilement.

--
Tisane



Avatar
Jean-Pierre FORESTIER
Bonsoir
Une autre méthode complémentaire à celle de Tisane
Dans le masque, après <N°>
Ajouter /X
X étant le nombre de diapos.

--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"EliotNaiss" a écrit dans le message de news:
#
bonjour à tous,
est-il possible avec powerpoint 2000, en pied de page d'afficher comme
word,

le numéro de la diapo en cours (oui) suivi du nombre total de diapos ?
merci
cordialement
eliot




Avatar
EliotNaiss
Bonjour Jean-Pierre,
c'était une solution que j'avais dans la manche, je pensais à un code comme
le <#> mais en attendant je vais suivre ton conseil.
merci
cordialement
Eliot
"Jean-Pierre FORESTIER" a écrit
dans le message de news:
Bonsoir
Une autre méthode complémentaire à celle de Tisane
Dans le masque, après <N°>
Ajouter /X
X étant le nombre de diapos.

--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"EliotNaiss" a écrit dans le message de news:
#
bonjour à tous,
est-il possible avec powerpoint 2000, en pied de page d'afficher comme
word,

le numéro de la diapo en cours (oui) suivi du nombre total de diapos ?
merci
cordialement
eliot








Avatar
EliotNaiss
Bjr Tisane,
j'ai d'abord répondu à Jean-Pierre, désolé.
j'ai testé ta procédure, ca marche bien, juste qu'il faut créer une zone de
texte pour remplacer l'ex pied de page, mais c'est très bien.
Merci bcp.
Cordialement
Eliot
"Tisane" a écrit dans le message de news:
%
Bonjour Eliot,

est-il possible avec powerpoint 2000, en pied de page d'afficher
comme word, le numéro de la diapo en cours (oui) suivi du nombre
total de diapos ? merci


Pas direct mais faisable. Voici une procédure :

Le module ci-dessous compte les diapositives et place le total 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 (x/xx) :
- 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 dois obtenir ceci : <N°> / <pied de page>
Pour ajouter du texte en pied de page, place-le à gauche de <N°>
Exemple : Ton texte - <N°> / <pied de page>

Eventuellement, crée un bouton dans une des barres d'outils pour exécuter
la macro plus facilement.

--
Tisane