Discussion :

[r83]

Bonjour,


Sur PPT 2013
Je cherche à insérer le nom du fichier SUR une DIAPOSITIVE, comme on le fait sur word par exemple.
Je ne trouve pas l'équivalent de quickPart.
Il y a peut-être moyen de faire autrement ?
Merci pour les réponses

[AKRAM77]

Bonjour,

A ma connaissance tu peux insérer directement le contenu du fichier sur la diapostive , tu fais insertion / Objet / à partir d'un fichier / et tu cliques sur ton fichier prévu

t'as pas précisé tu veux juste insérer le nom du fichier ou le fichier lui même.

Merci

[clementmarcotte]

Bonjour,

La macro suivante insère 2 lignes de texte sur la diapositive numéro. Comme je n'ai pas trouvé le moyen de les mettre sur la diapositive en cours, tu vas devoir remplacer le 1 par le numéro de la diapositive que tu veux utiliser. La première ligne, vers le haut à gauche, inscrit seulement le nom de fichier. L'autre ligne, en bas, presque au centre, inscrit le chemin d'accès au complet. Pour l'emplacement, tu dois jouer avec left et top.

Attention, je n'ai rien mis pour enlever les inscriptions existantes. À mesure que tu l'exécutes sur la même diapositive, sans changer l'emplacement, tu empiles des inscriptions.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub LeNomDeFichierSurUneDiapositive()
    Dim letexte As String
    letexte = ActivePresentation.FullName
    letexte2 = ActivePresentation.Name
    'Pour utiliser une autre diapositive
    'remplacer le 1 par son numéro
    Set diapositive = ActivePresentation.Slides(1)
    diapositive.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
        Left:=100, Top:=500, Width:=500, Height:=50).TextFrame _
        .TextRange.Text = letexte
    diapositive.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
    Left:=100, Top:=100, Width:=500, Height:=50).TextFrame _
        .TextRange.Text = letexte2
End Sub