2009-04-16 11 views

Répondre

6

Cela devrait le faire:

For Each o In ActiveDocument.InlineShapes  

    If o.OLEFormat.Object.Name = "update" Then 
     o.Delete 
    End If 

Next 
+0

A eu le même problème et essayé votre code, m'a donné un "ce membre ne peut pas être consulté sur une ligne horizontale" erreur, aucune idée sur ce qui ne va pas – TDsouza

1

Je pense que quand vous avez dit « Nom du bouton » vous ment « Légende bouton »; s'il vous plaît essayer ci-dessous le code -

For Each o In ActiveDocument.InlineShapes 
    If o.OLEFormat.Object.Caption = "update" Then 
     o.Delete 
    End If 
Next 

Cordialement, Nilesh

PS: la légende est sensible à la casse, de sorte que vous pouvez vérifier le cas pour la légende.

+0

Cela a fonctionné pour moi !!! Je vous remercie... – panoet