Ajouter la pagination sur une présentation Powerpoint Résolu

Question

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

cs_Le Pivert · Answer

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

Ajouter la pagination sur une présentation Powerpoint

1 réponse

Discussions similaires

Newsletters