Bonjour tout le monde,

J'utilise ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub Transparent_images()
 
    ActiveWindow.Selection.SlideRange.Shapes("Object 5").Select
    With ActiveWindow.Selection.ShapeRange
        .Fill.Visible = msoFalse
        .Fill.Solid
        .Fill.Transparency = 0#
    End With
End Sub
Il me permet de mettre une image en transparent.

Le problème, cette ligne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
 ActiveWindow.Selection.SlideRange.Shapes("Object 5").Select
Je ne peux utiliser ce code que pour un objet nommé "Object 5".

Sauriez-vous svp me dire comment je peux faire pour utiliser ce code sur tous les objets (images) ?

Merci d'avance.

beegees