Ovalsを削除する

アクセスログを眺めていて、
「msn excel vba ovals 図形の丸の消去」
という検索キーワードに気づきました。

Ovals（楕円）を削除する、Excel VBAのコードについて調べていた方による検索です。

Ovalsを削除するサンプルマクロ

以下のSubプロシージャを実行すると、アクティブシートの楕円がすべて削除されます。

Ovalsオブジェクトとは

コードとしては、わかってしまえば難しくはないでしょう。

ただし、シート上の楕円を表すOvalsオブジェクトは、四角形を表すRectanglesコレクションオブジェクトと同様に、レガシーなDrawingObjects系のオブジェクトで、使うのならコードの意味をしっかり確認しておきましょう。

Ovalsをオブジェクトブラウザーで確認しよう

Ovalsオブジェクトは、オブジェクトブラウザーでは非表示になっていますから、確認するにはオブジェクトブラウザーで右クリックして表示されるショートカットメニューで［非表示のメンバーを表示］をOnにしましょう。

Ovalsオブジェクトは、Ovalオブジェクトを単独のオブジェクトとして持つ、コレクションオブジェクトですが、Deleteメソッドも用意されています。

戻りがObjectと定義されているWorksheetオブジェクトのOvalsメソッドですが、実行するとOvalsコレクションオブジェクトを取得できます。

• オブジェクトブラウザーの使い方を丁寧に解説した教本

Ovalsをローカルウィンドウで確認しよう

Woksheet.Ovalsメソッドが、Ovalオブジェクトを単独のオブジェクトとして持つ、Ovalsコレクションオブジェクトを返すことは、簡単なプロシージャを作成して、ローカルウィンドウでオブジェクト変数を覗くことで確認できます。

上図はOvalが2つ存在するシートがアクティブな状態でステップ実行したところです。

• VBAで楕円・Ovalsを非表示に

最終更新日時：2021-06-15 17:13