Excelで図形をすべて削除するマクロ

Pocket

Excelのワークシートにある図形をすべて削除するマクロです。
Excel2007で確認しました。

すべてを削除

アクティブなワークシートにあるすべての図形を削除します。

Sub shape_delete_all()
    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

[ 2011年2月19日 | カテゴリー: Excel | タグ: , ]

« | »

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

送信してください。


タグ

カテゴリー

最近の投稿

最近のコメント

固定ページ

アーカイブ

stabucky

写真

メタ情報