Discussion :

[03phil]

Bonjour à tous,

Je cherche à insérer automatiquement dans mes fichiers POWERPOINT 2007 les informations de propriété comme l'adresse par exemple : C:\Documents and Settings\Philippe\Mes documents\Le Taraudage\Expérimentation.pptx
Je ne trouve pas cette fonctionnalité.
Dans l’attente d’une réponse.
Merci à tous !
Cordialement

03Phil

[Invité]

Bonjour et bienvenue sur le forum Office de DVP

Je n'ai jamais trouvé comment faire cela, contrairement à Word ou Excel, je propose donc une petite routine en VBA.

Ouvre un module dans l'éditeur VBA (alt+F11)

Colle le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub AddresseFichier()
    ' déclaration des variables
    Dim sld As Slide
    Dim shp As Shape
 
    ' on met l'addresse dans chaque slide
    For Each sld In ActivePresentation.Slides
        Set shp = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 300, 25)
        With shp.TextFrame.TextRange
            .Text = ActivePresentation.Path & "\" & ActivePresentation.Name
            .Font.Size = 12
        End With
    Next sld
End Sub

Exécute le, cela te permettra d'avoir le chemin et le nom du fichier dans chaque slide de ton diaporama.

Il faut bien sûr l'adapter à ton cas.

Philippe