Discussion :

[kahoerre]

Bonjour,

Je viens vers vous car je sèche sur un point.

Je souhaiterai importer une image d'un fichier qui se positionnerait au même emplacement sur toutes mes slides.

J'ai essayer de faire ça en enregistrant une macro et en retravaillant le code mais rien à faire je n'y arrive pas...

Pouvez-vous m'aider sur ce point ?
Cordialement,

Kahoerre

[Invité]

Bonjour

Il y a de nombreuses discussions sur le sujet dont ici : http://www.developpez.net/forums/d11...osition-macro/

Philippe

[Invité]

Re

Si c'est la même position dans tous les slides pourquoi ne pas utiliser un masque ?

Philippe

[kahoerre]

Bonjour,

Je ne peux pas utiliser un masque, car à cet emplacement nous pourrons y retrouver un logo ou un nom d'entreprise. Il sera aussi possible de ne rien mettre du tout.

Kahoerre

[Invité]

Ok

As-tu regardé le lien et fais une recherche avec le terme Image dans le forum VBA PowerPoint ?

Les discussions y sont nombreuses sur le sujet.

Si tu coinces toujours dis le et où tu coinces, et à quel niveau.

En attendant un petit exemple commenté :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Public Sub AjoutImage()
    ' déclaration
    Dim objSld As Slide
    Dim strPathImage As String
 
    ' affectation
    strPathImage = "C:\Users\Philippe\Desktop\Plan.gif"
 
    ' on parcourt les diapositives de la présentation
    For Each objSld In ActivePresentation.Slides
        ' on ajoute l'image
        objSld.Shapes.AddPicture strPathImage, msoFalse, msoTrue, 50, 50, 200, 200
        ' on passe à la diapositive suivante
    Next objSld
End Sub

Philippe