Discussion :

[jatartaak]

Bonjour,
Je cherche un code pour remplacer une image par une autre en vba. Exemple j'ai une image KO.jpg qui a pour nom de shape IMAGE, je souhaiterai remplacer l'image par Ok.jpg.

Merci d'avance

Cordialement,
Stéphane B.

[Invité]

Bonjour,

A tester :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Option Explicit
 
Sub TestChargerUneImage()
 
    ChargerUneImage 2, "IMAGE", "C:\...\Ok.jpg"  ' A adapter
 
End Sub
 
Sub ChargerUneImage(ByVal NumeroSlide As Integer, ByVal NomShape As String, ByVal CheminComplet As String)
 
 
Dim I As Integer, J As Integer
Dim SlideEnCours As Slide
 
   If CheminComplet = "" Then
      MsgBox "Sélectionnez une image !", vbCritical
      Exit Sub
   End If
 
   Set SlideEnCours = ActivePresentation.Slides(NumeroSlide)
   With SlideEnCours
        If .Shapes.Count > 0 Then
           For J = 1 To .Shapes.Count
               With .Shapes(J)
                    If .Name = NomShape Then .Fill.UserPicture CheminComplet
               End With
           Next J
         End If
   End With
 
   Set SlideEnCours = Nothing
 
End Sub