Home » エクセルマクロ・Excel VBAの使い方 » 図形内文字列 » VBAで図形にテキスト・文字列を入力する-TextFrame.Characters

VBAで図形にテキスト・文字列を入力する-TextFrame.Characters

対象:Excel2007, Excel2010, Excel2013, Windows版Excel2016

「excel vba シェイプ上に文字を入力」
という検索で、このサイト・インストラクターのネタ帳へのアクセスが、ありました。

図形(2003以前のオートシェイプ)に、文字列・テキストを入力するVBA(Visual Basic for Applications)のコードを探している方による検索です。

図形にテキスト・文字列を入力するサンプルマクロ

「excel vba シェイプ上に文字を入力」
という検索だけでは詳細がわかりませんので、簡単なサンプルマクロをご紹介しておきます。

Sub 図形にテキストを入力する()
 ActiveSheet.Shapes(1).TextFrame.Characters.Text = "サンプル文字列"
End Sub

アクティブなシート上に図形が存在しているときに上記のマクロを実行すると、一つ目の図形に「サンプル文字列」というテキストが入力されます。

サンプルマクロの解説

Shaepオブジェクトに用意されているTextFrameプロパティで、文字列枠を表すTextFrameオブジェクトを取得して、

ActiveSheet.Shapes(1).TextFrame.Characters.Text = "サンプル文字列"

図形にテキスト・文字列を入力するExcelマクロ

TextFrameオブジェクトに用意されているCharactersメソッドで、図形内の文字列範囲を表すCharactersオブジェクトを取得し、

ActiveSheet.Shapes(1).TextFrame.Characters.Text = "サンプル文字列"

図形にテキスト・文字列を入力するExcelマクロ

Charactersオブジェクトに用意されているTextプロパティで、図形にテキストを入力しています。

ActiveSheet.Shapes(1).TextFrame.Characters.Text = "サンプル文字列"

図形にテキスト・文字列を入力するExcelマクロ

Characters.TextプロパティではなくCharacters.Insertメソッドでも

CharactersオブジェクトのInsertメソッドを使って、

図形にテキスト・文字列を入力するExcelマクロ

例えば、

ActiveSheet.Shapes(1).TextFrame.Characters.Insert "サンプル文字列"

といったコードでも図形にテキストを入力することができるのですが、Characters.Textプロパティのほうが汎用性が高いので、Charactes.Textプロパティを私はおすすめしておきます。

最終更新日時:2022-08-04 15:36

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » 図形内文字列 » VBAで図形にテキスト・文字列を入力する-TextFrame.Characters

「図形内文字列」の記事一覧

検索


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

.