エクセルシート上全てのオブジェクト（画像・図形・グラフ等）を選択し、削除する（Excel VBA)

2021/12/4 2023/7/23 Excel, Excel VBA マクロ, Excel VBA マクロオブジェクト, Excel VBA マクログラフ, Excel オブジェクト図形

【本日のミッション】

エクセルのアクティブシート上の、全てのオブジェクトを選択して削除せよ。

目次

1 ミッションの概要
2 プロシージャ
3 Shapes.SelectAll メソッド
4 参照

ミッションの概要

エクセルのアクティブシート上の、全てのオブジェクトを選択して削除せよ、というのが今回のミッションです。

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

■■■スポンサーリンク■■■

プロシージャ

オブジェクトを全削除するシートをアクティブにした状態で、Alt＋F11でVsual Basic Editerを起動します。

［挿入］－［標準モジュール］で新規モジュールを作成し、下記の通りコードを記入します。

Sub シートのオブジェクト全削除()
    ActiveSheet.Shapes.SelectAll
    Selection.Delete
End Sub

記入したプロシージャ（Sub～End Subまで）のどこかにカーソルを置いてF5キーをクリックしてください。

アクティブシートのオブジェクトが、全て削除されます。

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

■■■スポンサーリンク■■■

Shapes.SelectAll メソッド

指定した Shapes コレクションのすべての図形を選択します。

ActiveSheet.Shapes.SelectAll

参照

系列が1つのグラフを自動大量連続作成（Excel VBA）
「実行時エラー 1004」を出さずに、ワークシート内のグラフを「グラフ元」以外全て削除（Excel VBA）
グラフの参照先を変えると勝手にグラフの色が変わる現象を解決せよ
 系列が複数あるグラフを自動大量連続作成（Excel VBA）
n行毎の改ページ設定「実行時エラー1004 RangeクラスのPageBreakプロパティを設定できません」の原因（Excel VBA）
参照データ数が異なる・参照先が変動する月別グラフを自動大量連続作成（Excel VBA）
複数系列・参照データ数が異なる・参照先が変動する月別グラフを自動大量連続作成（Excel VBA）
大量の画像やグラフ等のオブジェクトで画面表示が遅いのを解決（Excel）
エクセルシートに画像が存在するかどうか（有無）を調べる方法（Excel VBA)
エクセルシート上全てのオブジェクト（画像・図形・グラフ等）を選択し、削除する（Excel VBA)
エクセルシート上のオブジェクト（図形・画像・グラフ等）の件数を数える方法（Excel VBA)
エクセルシートにグラフが存在するかどうか（有無）を調べる方法（Excel VBA)
エクセルシートに図形が存在するかどうか（有無）を調べる方法（Excel VBA)
エクセル選択しているセル範囲に写真が存在しているか（有無）を確認（Excel VBA)
エクセル選択しているセル範囲にグラフが存在しているか（有無）を確認（Excel VBA)
エクセル選択しているセル範囲に図形が存在しているか（有無）を確認（Excel VBA)
エクセル選択セル範囲の写真を削除する（Excel VBA）
エクセル選択セル範囲のグラフを削除する（Excel VBA）
エクセル選択セル範囲の図形を削除する（Excel VBA）
Excel VBAでワードを起動して文字を入力操作（Excel VBA）
Excel VBAでワードを起動してエクセルの表をワードに貼付け（Excel VBA）
Excel VBAでワードを起動してエクセルのエクセルの表を図としてワードに貼付け（Excel VBA)
Word コピー貼付けした図が白い枠だけ？図が表示されない現象を解決
 Excel VBAでワードを起動してグラフをワードに図として貼付け（Excel VBA）

■■■スポンサーリンク■■■

関連記事