Ajouter la pagination sur une présentation Powerpoint

Résolu

Guiiggs Messages postés 27 Date d'inscription Statut Membre Dernière intervention -
Guiiggs Messages postés 27 Date d'inscription Statut Membre Dernière intervention - 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

A voir également:

Pagination powerpoint
Powerpoint viewer - Télécharger - Présentation
Numéroter les pages sur une présentation PowerPoint - Guide
Insérer video powerpoint - Guide
Powerpoint 2013 - Télécharger - Présentation
Powerpoint portrait - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

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 27 Date d'inscription Statut Membre Dernière intervention 1

Bonjour cs_Le Pivert,

Merci pour ta réponse.
Mais j'ai le même message d'erreur :

Cordialement,
Guiiggs

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

A mettre dans un module, mettre le curseur sur: slidnum() et appuyer surF5

Cela fonctionne chez moi

Ps j'ai ajouté cette ligne pour numéroter les slides:

.Text = i & " slide"

voilà

Guiiggs Messages postés 27 Date d'inscription Statut Membre Dernière intervention 1

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 7904 Date d'inscription Statut Contributeur Dernière intervention 729

A mettre dans c-joint et ensuite coller le lien dans ce post

https://www.cjoint.com/

Guiiggs Messages postés 27 Date d'inscription Statut Membre Dernière intervention 1

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

Cordialement,
Guiiggs

Discussions similaires

Changer l'orientation d'une seule diapo

publipostage sur PowerPoint

Enregistrement powerpoint 2013 impossible

equivalent de Power Point pour LibreOffice

Votre réponse

Discussions similaires