Insertion d'une image sur toute les slides.

Version imprimable

07/06/2012, 10h43
kahoerre

Insertion d'une image sur toute les slides.

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
07/06/2012, 11h21
Invité

Bonjour

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

Philippe
08/06/2012, 04h27
Invité

Re

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

Philippe
08/06/2012, 17h27
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

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:

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