2009-04-16 71 views

答えて

6

これはそれを行う必要があります。

For Each o In ActiveDocument.InlineShapes  

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

Next 
+0

同じ問題があり、コードを試してみましたが、「このメンバーには水平線でアクセスできません」というエラーが表示されました。何が起こっているのかわかりません。 – TDsouza

1

私はあなたが「ボタン名」言ったとき、あなたは「ボタンのキャプション」メンターと思います。コードの下に試してみてください -

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

よろしく、 Nilesh

PS:キャプションは大文字と小文字が区別されるので、あなたは、キャプションのケースを確認したいことがあります。

+0

これは私のために機能しました!ありがとうございました... – panoet

関連する問題