マクロの実行ボタンを削除するマクロ

質問

以下のようなコードを書いたのですが

シート内にボタンができてそのボタンを最終的には削除したいです
資料作成のテンプレートとして下記コードを書いたのですが
資料ができた時にボタンがあるままだと見栄えがいまいちなのでマクロ実行ボタンを削除したくなりました。
シート数は30枚くらいあるので1シートずつマクロ実行ボタンを削除するのは正直しんどいです
一度にシートを全部選択してマクロ実行ボタンを削除したいです

マクロ実行ボタンの箇所は全シート同じ箇所にあります

Sub ボタン()
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
ActiveSheet.Buttons.Add(108, 40, 55, 15).Select
Selection.OnAction = "図形挿入等倍"
Selection.Characters.Text = "図形挿入"
With Selection.Characters(Start:=1, Length:=4).Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
Range("E4").Select
ActiveSheet.Buttons.Add(215, 40, 55, 15).Select
Selection.OnAction = "赤枠"
Selection.Characters.Text = "赤枠"
With Selection.Characters(Start:=1, Length:=2).Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
Range("G4").Select
ActiveSheet.Buttons.Add(323, 40, 55, 15).Select
Selection.OnAction = "テキスト入り赤四角"
Selection.Characters.Text = "テキスト"
With Selection.Characters(Start:=1, Length:=4).Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
Rows("12:12").Select
ActiveWindow.FreezePanes = True
End Sub

回答No.2

keithin · ベストアンサー

sub macro1()
　dim w as worksheet
　on error resume next
　for each w in worksheets
　w.buttons.delete
　next
end sub

＃「ほかの残したいボタンが実はあった」とか、ご質問で情報提供されていないことは関知しません。

お礼

ありがとうございます
まさにやりたいことそのままでした
本当にありがとうございます
かなり悩んでいたので助かりました
ありがとうございました

回答No.1

kybo

コードの一番最後に以下の様に記述してみてください。

Dim W As Worksheet
For Each W In Worksheets
W.Shapes(Application.Caller).Delete
Next W

補足

ありがとうございます
W.Shapes(Application.Caller).Delete
実行時エラー
指定したアイテムがみつかりませんとでてしまいます