Home » エクセルマクロ・Excel VBAの使い方 » 図形内文字列 » Excel VBAで図形に文字列を追加する

Excel VBAで図形に文字列を追加する

動作検証バージョン：Windows 11 Home + 64bit Excel バージョン 2505（ビルド18827.20164クイック実行）

「excel vba 図形テキスト追加」
といった検索キーワードでアクセスがありました。

ワークシート上の図形に文字列が入力されているときに、Excel VBAでその図形に追記を行うには、どのようなコードを書けばいいのかを調べていらしたのでしょうか。

図形に文字列を追加するサンプルマクロ

新規ワークシートに図形を1つだけ追加し、何らかの文字列を入力しておいてから以下のExcelマクロを実行してください。

Sub 図形内文字列に追記する()　
　Dim shp As Shape
　Set shp = ActiveSheet.Shapes(1)　

　Dim txt As String
　txt = shp.TextFrame.Characters.Text
　
　txt = txt & "追加したい文字列"
　shp.TextFrame.Characters.Text = txt
　
End Sub

サンプルマクロで行っている処理

まず、アクティブシートの1つ目の図形を表すShapeオブジェクトを取得して、変数shpに代入しておいてから、

　Dim shp As Shape
　Set shp = ActiveSheet.Shapes(1)

その図形に入力されている文字列を変数txtに代入しています。

　Dim txt As String
　txt = shp.TextFrame.Characters.Text

変数txtに文字列を追加してから、

　txt = txt & "追加したい文字列"

文字列を取得する際にも使用したCharacters.Textプロパティを使って、

追記を行っています。

　shp.TextFrame.Characters.Text = txt

理解するExcel VBA／図形操作の基本

伊藤潔人 2021-11-28

Amazon

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » 図形内文字列 » Excel VBAで図形に文字列を追加する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBA経験者の方に向けて、Word VBAの基本をキンドル本にしました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

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

上記のExcel VBAユーザー向けのPython超入門書の、元になったキンドル本です↓↓

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

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

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

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

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

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

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

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

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