動作検証バージョン：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
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
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
［スポンサードリンク］
- Newer：ScaleWidthやScaleHeightの引数
- Older：Solidメソッドを持つオブジェクトは？
Home » ワードマクロ・Word VBAの使い方 » Shape・図形 » InlineShapeを選択する
