マクロの実行ボタンを削除するマクロ
以下のようなコードを書いたのですが
シート内にボタンができてそのボタンを最終的には削除したいです
資料作成のテンプレートとして下記コードを書いたのですが
資料ができた時にボタンがあるままだと見栄えがいまいちなのでマクロ実行ボタンを削除したくなりました。
シート数は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 = "MS Pゴシック"
.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 = "MS Pゴシック"
.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 = "MS Pゴシック"
.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
お礼
早速の回答ありがとうございます。 うまくいきました。 又、何かありましたらよろしくお願いします