Remplacer une image par une autre en vba

Citation:

Envoyé par jatartaak

Bonjour,

A tester :

Code:

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