Ajouter la pagination sur une présentation Powerpoint [Résolu/Fermé]

Signaler
Messages postés
21
Date d'inscription
vendredi 11 janvier 2013
Statut
Membre
Dernière intervention
11 décembre 2019
-
Messages postés
21
Date d'inscription
vendredi 11 janvier 2013
Statut
Membre
Dernière intervention
11 décembre 2019
-
Bonjour,

J'ai écrit une macro (dans Excel) qui permet de créer une présentation Powerpoint.
Mon problème est que je souhaite ajouter le numéro de page sur ma présentation mais je n'arrive pas.
J'ai le code trouvé sur Internet :
Sub slidnum()
    Dim oshp As Shape
    With ActivePresentation.SlideMaster.Shapes
        Set oshp = .AddTextbox(msoTextOrientationHorizontal, 50, 100, 100, 50)
        oshp.TextFrame.TextRange.Font.Name = "Arial"
        oshp.TextFrame.TextRange.Font.Size = 12
        oshp.TextFrame.TextRange.InsertSlideNumber
        oshp.TextFrame.TextRange.InsertAfter " of " & ActivePresentation.Slides.Count
    End With
    ActivePresentation.PageSetup.FirstSlideNumber = 0
    ActivePresentation.Slides(1).DisplayMasterShapes = msoFalse
    Set oshp = Nothing
End Sub


En lançant la macro j'obtient un message d'erreur : cf image "messageErreur" à la ligne cf image "ligneErreur"


Pourriez-vous m'aider s'il vous plaît ?

Cordialement,
Guiiggs

1 réponse

Messages postés
6875
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 août 2020
538
Bonjour,

comme ceci:

Sub slidnum()
Dim i As Integer
Dim sld As Slide
Dim shp As Shape
For i = 1 To ActivePresentation.Slides.Count
 
'' affectation à l'objet slide la première diapositive de la présentation en cours.
    Set sld = ActivePresentation.Slides(i)
 
    ' création de la zone de texte
    Set shp = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 100, 100, 50)
 
    ' ajout du texte
    With shp.TextFrame.TextRange
        .Font.Name = "Arial"
        .Font.Size = 12
       .InsertSlideNumber
       .InsertAfter " of " & ActivePresentation.Slides.Count
       .Text = i & " slide"
    End With
    Next
    ActivePresentation.PageSetup.FirstSlideNumber = 0
    ActivePresentation.Slides(1).DisplayMasterShapes = msoFalse
    Set shp = Nothing
   Set sld = Nothing
End Sub


Messages postés
21
Date d'inscription
vendredi 11 janvier 2013
Statut
Membre
Dernière intervention
11 décembre 2019

J'ai fait tes modification mais toujours le même problème.

Veux-tu que je t'envoie mon fichier ?

Cordialement,
Guiiggs
Messages postés
6875
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 août 2020
538
A mettre dans c-joint et ensuite coller le lien dans ce post

https://www.cjoint.com/
Messages postés
21
Date d'inscription
vendredi 11 janvier 2013
Statut
Membre
Dernière intervention
11 décembre 2019

Merci.
Voici le lien : https://www.cjoint.com/c/IDlmA2gM4mq

Cordialement,
Guiiggs
Messages postés
6875
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 août 2020
538
Aller dans le Module : M_Generation_PPT

https://www.cjoint.com/c/IDlntD3wvjQ

@+ Le Pivert
Messages postés
21
Date d'inscription
vendredi 11 janvier 2013
Statut
Membre
Dernière intervention
11 décembre 2019

Super en modifiant un peu j'ai eu le résultat que je voulais.

Merci beaucoup cs_Le Pivert.

Cordialement,
Guiiggs