pin********

2022/5/22 16:01

22回答

Excelマクロで質問です。 マクロボタンを削除したく調べたら下記コードがありました。 "ボタン"という文字が入っていれば全て削除したいのですが、どうすればよろしいでしょうか。

Excelマクロで質問です。 マクロボタンを削除したく調べたら下記コードがありました。 "ボタン"という文字が入っていれば全て削除したいのですが、どうすればよろしいでしょうか。 例えば、 ボタン1 初めに押すボタン このボタンを押して印刷 等があるとしたら、全て消したいです。 Dim btn As Object     For Each btn In ActiveSheet.Buttons         If btn.Name = "ボタン" Then btn.Delete     Next btn よろしくお願いします。

Visual Basic | Excel・71閲覧

ベストアンサー

0
porihiko3

2022/5/22 19:40

こんにちは >ボタン"という文字が入っていれば シートに、activexのボタンがあって、そのボタンに、「文字が表示してある」 という場合だったら、 if instr(1,btn.caption , "ボタン")<> 0 then btn.delete end if のようになります。 ボタンの種類でコードが違っていくので、確認してみてください

ThanksImg質問者からのお礼コメント

出来ました！ありがとうございます！

お礼日時：5/24 19:36

その他の回答（1件）

0
hmm********

2022/5/22 16:23

Dim btn As Object For Each btn In ActiveSheet.Buttons If InStr(btn.Name, "ボタン" ) > 0 Then btn.Delete End If Next btn 因みに、全てのボタンなら ActiveSheet.Buttons.Delete