Bonjour tout le monde,
J'utilise ce code :
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 :
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
Partager