Home » ワードマクロ・Word VBAの使い方 » Selection » Word VBAで選択されているShapeを取得したい

Word VBAで選択されているShapeを取得したい

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

「word vba selection shape 取得」
といった検索キーワードでアクセスがありました。

Word VBAで、選択されている図形を表すオブジェクトを取得するには、どのようなコードを書けばいいのか探していらしたのでしょうか。

［スポンサードリンク］

選択されているShapeを取得するサンプルマクロ

Word文書に（行内オブジェクトではない）図形をいくつか挿入し、それらを選択した状態で以下のSubプロシージャを実行してみてください。

Sub 選択されているShapeを順番に取得する()
　Dim shp As Shape
　For Each shp In Selection.ShapeRange
　　MsgBox shp.AutoShapeType
　Next
End Sub

選択されていた図形の形状（AutoShapeType）を表す数値が、順番にメッセージボックスに表示されます。

Selectionオブジェクトに用意されているShapeRangeプロパティを使うと、

選択されている図形を表すShapeRangeオブジェクトを取得できます。

ShapeRangeオブジェクトの要素であるShapeオブジェクトを、

For Each～Next文で順番に取得して、AutoShapeTypeを取得しています。

［スポンサードリンク］

Home » ワードマクロ・Word VBAの使い方 » Selection » Word VBAで選択されているShapeを取得したい

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

3年前(2021年4月)の
人気記事

「Selection」の記事一覧