Sub ボタンのみすべて削除する() Worksheets("Sheet1").Buttons.Delete End Sub
Sub ボタンのみすべて削除する②() For Each ボタン In ActiveSheet.Buttons ボタン.Delete Next ボタン End Sub