Home » エクセルマクロ・Excel VBAの使い方 » DrawingObjects » 選択図形のテキストをVBAで取得する

選択図形のテキストをVBAで取得する

対象:Excel2010, Excel2013, Windows版Excel2016

選択図形のテキストをVBAで取得する

「excel マクロ 選択した図形のcharacters.textを取得」
という検索キーワードによるアクセスに気づきました。

選択されている図形のテキストを取得するサンプルマクロ

以下のSubプロシージャを実行すると、選択されている図形に入力されているテキスト(文字列)が、イミディエイトウィンドウに出力されます。

Sub 選択図形テキストを取得する()
On Error GoTo ErrHndl

 Dim shp As Shape
 For Each shp In Selection.ShapeRange
  Debug.Print shp.TextFrame.Characters.Text
 Next

Exit Sub
ErrHndl:
 MsgBox "図形が選択されていません。"
End Sub

サンプルマクロで利用しているオブジェクト式について

「excel マクロ 選択した図形のcharacters.textを取得」
と検索なさった方は、図形に入力されているテキストを、CharactersオブジェクトのTextプロパティで

選択図形のテキストをVBAで取得する

取得できることまではご存知なはずです。

そのCharactersオブジェクトを取得するために、ShapeオブジェクトのTextFrameプロパティでTextFrameオブジェクトを取得して、

選択図形のテキストをVBAで取得する

TextFrameオブジェクトのCharactersメソッドを利用しているのが、

選択図形のテキストをVBAで取得する

For Each~Nextループ内の「shp.TextFrame.Characters」というオブジェクト式です。

このサンプルでは、図形が選択されていない状態のみを入れていますが、他にも実行時エラーは発生するケースはあるはずですから、適宜エラー処理を追加してください。

最終更新日時:2021-12-22 12:11

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » DrawingObjects » 選択図形のテキストをVBAで取得する

「DrawingObjects」の記事一覧

検索


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

.