Home » ワードマクロ・Word VBAの使い方 » Shape・図形 » InlineShapeを選択する

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

「マクロ inlineshape 選択」
といった検索キーワードでアクセスがあることに気がつきました。

Word VBAで、行内に配置された画像等を選択するにはどのようなコードを書けばいいのか、探していらしたのでしょうか。

[スポンサードリンク]

InlineShapeを選択するサンプル

InlineShapeの存在するWord文書がアクティブな状態で、以下のSubプロシージャを実行してください。

Sub InlineShapeを選択する()
 ActiveDocument.InlineShapes(1).Select
End Sub

アクティブ文書内の1つ目のInlineShapeが選択されます。

InlineShapeオブジェクトに用意されているSelectメソッドを使えば、InlineShapeを選択できます。

InlineShapeを順番に選択するサンプル

以下のSubプロシージャを実行すると、アクティブ文書内に存在するInlineShapeが順番に選択される様子を観察できます。

Sub InlineShapeを順番に選択する()
 With ActiveDocument.InlineShapes
  If .Count = 0 Then Exit Sub

  Dim i As Long
  For i = 1 To .Count
   .Item(i).Select
   Stop
  Next
 End With
End Sub

InlineShapesコレクションのCountプロパティを使ってアクティブ文書にInlineShapeが存在しているか確認し、存在していなければ処理を終了しています。

With ActiveDocument.InlineShapes
 If .Count = 0 Then Exit Sub

InlineShapeが存在していれば、For~Nextループの中でInlineShapes.Itemメソッドを使ってInlineShapeオブジェクトを取得・選択して、Stopステートメントで中断する処理を繰り返しています。

 Dim i As Long
 For i = 1 To .Count
  .Item(i).Select
  Stop
[スポンサードリンク]

Home » ワードマクロ・Word VBAの使い方 » Shape・図形 » InlineShapeを選択する

「Shape・図形」の記事一覧

検索


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

.