Discussion :

[beegees]

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

[Invité]

Bonjour

A priori tu utilises ce code en mode création et non en mode diaporama (à cause du select).

Comment lances-tu cette procédure actuellement ?

Philippe