|
こんにちは。かみちゃん です。
>その時にボタンがおかしな風に残ってしまったのだろうかという気がします。
Keinさんとほぼ同じんなのですが、下のコードでボタンのみ(コントロールツー
ルボックスのボタンの場合は、オブジェクト名が限定)を削除することができる
と思います。
Option Explicit
Sub Macro1()
Dim ws As Worksheet
Dim myShp As Shape
Set ws = ActiveSheet
' 'すべてのシートに対して処理する
' For Each ws In Worksheets
For Each myShp In ws.Shapes
Select Case myShp.Type
'フォーム
Case msoFormControl
'コマンドボタン
If myShp.FormControlType = xlButtonControl Then
myShp.Delete
End If
'コントロールツールボックス
Case msoOLEControlObject
'オブジェクト名がCommandButtonで始まる場合
If myShp.Name Like "CommandButton*" Then
myShp.Delete
End If
End Select
Next
' Next
End Sub
|
|