Ole en vba..?
aurel68270
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je ne comprend pas cette partie d'un algo..
Quelqu'un peu m'aider ?
Dim Sh As Worksheet, S As Shape
For Each Sh In Worksheets
For Each S In Sh.Shapes
If TypeName(S.OLEFormat.Object) = "Picture" Then
S.Delete
End If
Next
Next
Merci :)
Je ne comprend pas cette partie d'un algo..
Quelqu'un peu m'aider ?
Dim Sh As Worksheet, S As Shape
For Each Sh In Worksheets
For Each S In Sh.Shapes
If TypeName(S.OLEFormat.Object) = "Picture" Then
S.Delete
End If
Next
Next
Merci :)
1 réponse
Bonjour,
Dim Sh As Worksheet, S As Shape
'pour chaque onglet dans ce classeur
For Each Sh In Worksheets
'pour chaque Shape dans les objets Shape de l'onglet
For Each S In Sh.Shapes
'si l'objet Shape est de type "Picture" alors delete l'objet
If TypeName(S.OLEFormat.Object) = "Picture" Then
S.Delete
End If
Next
Next
A la traduction pres
Dim Sh As Worksheet, S As Shape
'pour chaque onglet dans ce classeur
For Each Sh In Worksheets
'pour chaque Shape dans les objets Shape de l'onglet
For Each S In Sh.Shapes
'si l'objet Shape est de type "Picture" alors delete l'objet
If TypeName(S.OLEFormat.Object) = "Picture" Then
S.Delete
End If
Next
Next
A la traduction pres