Home » エクセルマクロ・Excel VBAの使い方 » DrawingObjects » Rectangleにテキストを

対象:Excel2010, Excel2013, Windows版Excel2016

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

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

Excel.Rectangle

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

[スポンサードリンク]

既にご紹介しているとおり、Shapeオブジェクトの、TextFrameオブジェクトの、Charactersオブジェクトの、Textプロパティを利用するのが、基本です。

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

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

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

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

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

Excel.Rectangle Excel.Rectangles

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

Excel.Rectangle.Text

上記のコードです。

選択されているRectangleにテキストを設定するサンプル

四角形を選択しておいてから、以下の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

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » DrawingObjects » Rectangleにテキストを

TrackBack:1

TrackBack URL
Rectangles.Addで四角形を挿入する from インストラクターのネタ帳
レガシーなオブジェクトであるRectanglesコレクションに用意されているAddメソッドで、四角形を挿入するExcel VBAのコードをご紹介しています。

Home » エクセルマクロ・Excel VBAの使い方 » DrawingObjects » Rectangleにテキストを

「DrawingObjects」の記事一覧

検索


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

.