動作検証バージョン: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
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
[スポンサードリンク]
- Newer:BaseLineAlignmentプロパティに指定できるWdBaselineAlignment列挙型に定義されている定数一覧
- Older:VBAやVBSのNothingとはどういう状態なのか
Home » ワードマクロ・Word VBAの使い方 » Shape・図形 » InlineShapeをすべて削除する