Menu

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

Messages postés
20
Date d'inscription
vendredi 11 janvier 2013
Statut
Membre
Dernière intervention
17 avril 2019
- - Dernière réponse : Guiiggs
Messages postés
20
Date d'inscription
vendredi 11 janvier 2013
Statut
Membre
Dernière intervention
17 avril 2019
- 11 avril 2019 à 15:39
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
Afficher la suite 

Votre réponse

1 réponse

Messages postés
5990
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 avril 2019
421
0
Merci
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


Guiiggs
Messages postés
20
Date d'inscription
vendredi 11 janvier 2013
Statut
Membre
Dernière intervention
17 avril 2019
-
J'ai fait tes modification mais toujours le même problème.

Veux-tu que je t'envoie mon fichier ?

Cordialement,
Guiiggs
cs_Le Pivert
Messages postés
5990
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 avril 2019
421 -
A mettre dans c-joint et ensuite coller le lien dans ce post

https://www.cjoint.com/
Guiiggs
Messages postés
20
Date d'inscription
vendredi 11 janvier 2013
Statut
Membre
Dernière intervention
17 avril 2019
-
Merci.
Voici le lien : https://www.cjoint.com/c/IDlmA2gM4mq

Cordialement,
Guiiggs
cs_Le Pivert
Messages postés
5990
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 avril 2019
421 -
Aller dans le Module : M_Generation_PPT

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

@+ Le Pivert
Guiiggs
Messages postés
20
Date d'inscription
vendredi 11 janvier 2013
Statut
Membre
Dernière intervention
17 avril 2019
-
Super en modifiant un peu j'ai eu le résultat que je voulais.

Merci beaucoup cs_Le Pivert.

Cordialement,
Guiiggs
Commenter la réponse de cs_Le Pivert