ole en vba..? Fermé

Question

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 :)


Configuration: Windows XP / Internet Explorer 8.0

f894009 · Answer

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

Ole en vba..?

1 réponse

Discussions similaires