Utiliser du code VBA sur plusieurs objets et pas qu'un seul
Bonjour tout le monde,
J'utilise ce code :
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 :
Code:
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
