Home » ワードマクロ・Word VBAの使い方 » Shape・図形 » InlineShapeをすべて削除する

InlineShapeをすべて削除する

動作検証バージョン:64bit Windows 10 Pro + 32bit Word(バージョン1910 ビルド12130.20390 Microsoft Store)

「wordvbaでinlineshapesの図形削除するには」
という検索キーワードによるアクセスがありました。

[スポンサードリンク]

InlineShapeを削除するサンプル

以下のSubプロシージャが参考になるでしょう。

Sub InlineShapeを削除する()
 Dim ishp As InlineShape
  For Each ishp In ActiveDocument.
   ishp.Delete
 Next
End Sub

上記のSubプロシージャを実行すると、アクティブ文書上の行内オブジェクトがすべて削除されます。

InlineShapeオブジェクトに用意されているDeleteメソッドを、

For Each~Nextループの中で実行すればOKです。

InlineShapeはFor Each~Next文で削除できる

Word VBAでは、Shapeオブジェクトの場合For Each~Nextループでは削除できませんけれど、InlineShapeは上記のSubプロシージャのとおりFor Each~Nextループで削除できます。

ヒトの目からは、割と似て見えるShapeオブジェクトとInlineShapeオブジェクトで、どうしてこのような違いが必要だったのか、その真の理由は、今の私にはわかりませんけれど、興味深い挙動です。

最終更新日時:2019-12-17 07:00

[スポンサードリンク]

Home » ワードマクロ・Word VBAの使い方 » Shape・図形 » InlineShapeをすべて削除する

「Shape・図形」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.