Excelで図形をすべて削除するマクロ
Excelのワークシートにある図形をすべて削除するマクロです。
Excel2007で確認しました。
すべてを削除
アクティブなワークシートにあるすべての図形を削除します。
Sub shape_delete_all()
For Each myshape In ActiveSheet.Shapes
myshape.Delete
Next
End Sub
For Each myshape In ActiveSheet.Shapes
myshape.Delete
Next
End Sub
フォーム以外を削除
「図形は削除したいが実行ボタンなどは残したい」というような場合は次のようにします。
Sub shape_delete_select()
For Each myshape In ActiveSheet.Shapes
If myshape.Type <> 8 Then 'フォーム(ボタンなど)以外
myshape.Delete
End If
Next
End Sub
For Each myshape In ActiveSheet.Shapes
If myshape.Type <> 8 Then 'フォーム(ボタンなど)以外
myshape.Delete
End If
Next
End Sub
[ 2011年2月19日 | カテゴリー: Excel | タグ: VBA , 図形 ]
« 西岡がアメリカ紙の新人ランキングで5位 | Excelの図形の中のテキストを操作するマクロ »
コメントを残す