[PPT] Afficher le nombre de diapositive

[kacedda]

Bonjour,

Voila depuis hier je cherche comment faire pour afficher le nombre total de diapositive dans une presentation.
Je voudrai un truc du genre:
Page 3/13
Page 4/13
...

Donc j'ai trouver pour le numero de diapositive mais le nombre total j'ai pas reussi.

Pourriez vous m'indiquer dans quel menu on fait ca?

Merci

[marabout]

En VBA, tu peux récupérer cette info:

Code :

 ns = ActivePresentation.Slides.Count

[kacedda]

Salut,

Merci donc je suppose que le principe c'est de faire une fonction VB et de l'appeler.
Mais j'y connai rien en fait.
Pourrais-tu m'indiquer la marche à suivre? ou quelqu'un d'autre.

Sinon ben tant pis je met le nombre en dur...

Sinon pour ce que ca interesse, j'ai trouver sur ce site un add-ins a PPT:
http://www.pptfaq.com/FAQ00548.htm
Mais ca fait pas ce que je veut, donc a part si y a des connaisseurs qui s'aurait modifier ca.

En fait ca ajoute une fonction à PPT qui permet d'ecrire ca:
"Slide x of y"

Bye

[marabout]

Voici un début de réponse:
une petite macro en VBA qui va écrire le nombre total de slides dans le footer du master:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub Nbr_Page_In_Footer()
    Dim nrPagesname As String
    Dim curpage As String
    nrPagesname = ActivePresentation.Slides.Count()
    With ActivePresentation.SlideMaster.HeadersFooters
        If .Footer.Visible = False Then
            With .Footer
                .Text = nrPagesname
                .Visible = msoTrue
            End With
        Else
            With .Footer
                .Text = ""
                .Visible = msoFalse
            End With
        End If
    End With
    If ActivePresentation.HasTitleMaster Then
        With ActivePresentation.TitleMaster.HeadersFooters
            If .Footer.Visible = False Then
                With .Footer
                    .Text = nrPagesname
                    .Visible = msoTrue
                End With
            Else
                With .Footer
                    .Text = ""
                    .Visible = msoFalse
                End With
            End If
        End With
    End If
End Sub

Le problème, c'est que pour activer cette macro, j'ai dû créer un bouton qui l'active quand je clique dessus. Je cherche s'il existe une macro autoexecutable dans ppt