Power Automate Desktopで圧縮ファイルを解凍する方法

PowerAutomateDesktopで数値をテキストに変換する方法

Power Automate Desktopでリストから重複する項目を削除する方法

Excel（エクセル）でくじ引きや当番表を作る、ランダムに振り分ける方法

Bing chatの使い方

Excel（エクセル）で特定期間内の日付のセルに書式を設定する方法/条件付き書式（セルの強調表示ルール）の使い方

Unity C#で一定間隔でメソッドを何度も呼び出させる方法/InvokeRepeating関数の使い方

Power Automate Desktopでメッセージボックスを表示する方法

Excel（エクセル）で合計数値が間違っているのを修正する方法/エラーチェックオプションの使い方

pythonのdatetimeオブジェクトについて

Unityでテキスト（Text）の一部の色を変える方法

Pythonで改行する、行をまたいでコードを書く方法

Excel（エクセル）で毎月・毎年の同じ日だけを連続入力する方法/オートフィル・連続データ（月・年単位）の使い方

Power Automate Desktopで変数の設定をする、新しく作る、更新・上書きする方法

Excel（エクセル）でピボットテーブルをグラフ化する方法/ピボットグラフの作り方

CSSでフォント・文字の色を変更する方法/colorプロパティの使い方

Power Automate DesktopでExcelのマクロ（VBA）を実行する方法

Power Automate Desktopでマウスの位置を取得する方法

Excel VBA（マクロ）で図形（Shape）を削除する方法/Deleteメソッドの使い方

IT

2021.10.29

他のオブジェクト同様、図形に対してもDeleteメソッドで削除が可能です。
ShapesコレクションはDeleteをサポートしていないので、ShapeRangeコレクションまたはShapeオブジェクトから操作します。

目次

VBAで図形を削除

VBAで図形を削除

全ての図形を削除

図形を削除
Shapeオブジェクト(またはShapeRangeコレクション).Delete

vba shapes delete1

消すための図形を用意しておきます。

' vba
ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.Delete

ShapesコレクションにはDeleteメソッドがありません。
従って一度選択しておき、ShapeRangeコレクションを選択範囲（＝すべての図形）から取得してからDeleteメソッドを実行します。

vba shapes delete2

現在のシートの図形がすべて削除されました。

単一の図形を削除

' vba
ActiveSheet.Shapes(1).Delete

Shapesコレクションから引数で指定したShapeオブジェクトからは、Deleteメソッドを直接実行できます。

vba shapes delete3

実行すると、指定した図形が削除されることが確認できます。

複数の図形を削除

' vba
ActiveSheet.Shapes.Range(Array(1, 2)).Delete

複数図形の場合は、Range(Array())の中で消したい図形を,で区切って指定し、ShapeRangeコレクションを取得してからDeleteします。

vba shapes delete4

実行結果です。

Excel（エクセル）：図形

Excelでは、図形という機能を使うことで四角形や丸、矢印などのオブジェクトをシート状に配置することができます。セルの形状を無視して配置できるので、フローチャートや装飾、注釈などアイデア次第でさまざまな用途に利用できます。図形作成・操作...

Excel（エクセル）：削除、クリア

Excel関連削除/クリア系の処理、操作まとめです。操作で言えば、選択した状態でDeleteを押せば大体消せるはずです。また文字入力中は、カーソルの位置からBackSpaceを押せば、左に向かって文字を削除していくことが可能です。セルで...

関数・演算子・メソッド・プロパティ名から探すExcel/VBA（マクロ）使い方・組み合わせ方まとめ

こちらはExcelやメソッドの諸機能を、機能の名称から探せるまとめ記事です。

やりたいことから方法を探すエクセル（Excel）操作・関数・VBA（マクロ）逆引きまとめ

逆引き（やりたいことから探す）Excel記事まとめ

コメント