Rectangleにテキストを

対象：Excel2010, Excel2013, Windows版Excel2016

「excel rectangleにテキストを入力したい」
といった検索キーワードで、このサイト『インストラクターのネタ帳』へのアクセスが時折あります。

VBAから、Rectangleオブジェクトに、

Excel.Rectangle

テキスト入力・文字列入力する方法を探していらしたのでしょうか。

［スポンサードリンク］

ですが、もっとシンプルな裏技的なコードでもいけますので、（一応）ご紹介しておきます。

1つ目のRectangleにテキストを設定するサンプル

以下のSubプロシージャを実行すると、アクティブシートの1つめのRectangleに文字列が設定されます。

Sub Rectangleにテキストを設定する ()
　ActiveSheet.Rectangles(1).Text = "テキストのサンプル"
End Sub

オブジェクトブラウザーで非表示のメンバーを表示すると、RectanglesコレクションオブジェクトとRectangleオブジェクトが存在していることがわかります。

Excel.Rectangle Excel.Rectangles

このRectangleオブジェクトのTextプロパティを使ってテキストを設定しているのが、

Excel.Rectangle.Text

上記のコードです。

四角形を選択しておいてから、以下のSubプロシージャを実行すれば、選択されていたRectangleにテキストが設定されます。

Sub Rectangleにテキストを設定する_Selection()
　Selection.Text = "テキストのサンプル（Selection）"
End Sub

Selectionプロパティは、図形の四角形などが選択されているときに、Rectangleオブジェクトを返します。

ローカルウィンドウでSelectionプロパティの戻り値を確認

Selectionプロパティで返された、Rectangleオブジェクトの、Textプロパティを設定しているのが、上記のコードです。

一般的にはおすすめし辛いレガシーなRectangleオブジェクトを使ったコードではありますが、
　　Shape
　　　└ TextFrame
　　　　　└ Characters
という基本を理解している方は、チャレンジしてみてください。

最終更新日時：2021-09-22 15:40

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

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

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

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

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

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

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

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

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

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

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

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

「DrawingObjects」の記事一覧