Excel VBA 図形にテキストを追加する TextFrameオブジェクト

• オブジェクト（必須）
  図形を表す、Shape【ｼｪｲﾌﾟ】オブジェクトを指定します。

• オブジェクト（必須）
  TextFrame【ﾃｷｽﾄﾌﾚｰﾑ】オブジェクトを返すオブジェクト式を指定します。
• Start【ｽﾀｰﾄ】（省略可）
  範囲の何文字目から取得するかを指定します。この引数に 1 を設定するか省略すると、その範囲の先頭から取得します。
• Length【ﾚﾝｸﾞｽ】（省略可）
  取得する文字数を指定します。この引数を省略すると、引数 Start 文字範囲より後の全体を取得します。

• オブジェクト（必須）
  TextFrame【ﾃｷｽﾄﾌﾚｰﾑ】オブジェクトを返すオブジェクト式を指定します。
• 設定値（必須）
  

  設定値	内容
  False（既定値）	余白を自動計算しません。
  True	余白を自動計算します。

• オブジェクト（必須）
  TextFrame【ﾃｷｽﾄﾌﾚｰﾑ】オブジェクトを返すオブジェクト式を指定します。
• 設定値（必須）
  

  設定値	内容
  False	テキスト枠の大きさを変更しません。（既定値）
  True	テキストに合わせてテキスト枠の大きさを自動で変更します。

• オブジェクト（必須）
  TextFrame【ﾃｷｽﾄﾌﾚｰﾑ】オブジェクトを返すオブジェクト式を指定します。
• 設定値（必須）
  指定されたオブジェクトの横位置の配置を表すXlHAlign列挙型の定数を設定します。

  XlHAlign列挙型の定数

  定数	値	内容
  xlHAlignLeft	-4131	左揃え（既定値）
  xlHAlignRight	-4152	右揃え
  xlHAlignJustify	-4130	両端揃え
  xlHAlignDistributed	-4117	均等割り付け
  xlHAlignCenter	-4108	中央揃え
  xlHAlignGeneral	1	データの種類に従って揃える
  xlHAlignFill	5	ページ幅に合わせる
  xlHAlignCenterAcrossSelection	7	選択肢の中央揃え

• オブジェクト（必須）
  TextFrame【ﾃｷｽﾄﾌﾚｰﾑ】オブジェクトを返すオブジェクト式を指定します。
• 設定値（必須）
  レイアウト枠の水平方向のオーバーフロー設定を指定します。XlOartHorizontalOverflow列挙型の定数で指定します。

  XlOartHorizontalOverflow列挙型の定数

  定数	値	内容
  xlOartHorizontalOverflowOverflow	0	テキストはレイアウト枠から はみ出すことができます。
  xlOartHorizontalOverflowClip	1	水平方向のレイアウト枠に 収まらないテキストを非表示にします。

• オブジェクト（必須）
  TextFrame【ﾃｷｽﾄﾌﾚｰﾑ】オブジェクトを返すオブジェクト式を指定します。
• 設定値（必須）
  指定されたオブジェクトの横位置の配置を表すXlVAlign列挙型の定数を設定します。

  XlVAlign列挙型の定数

  定数	値	内容
  xlVAlignBottom	-4107	下揃え
  xlVAlignCenter	-4108	中央揃え
  xlVAlignDistributed	-4117	均等割り付け
  xlVAlignJustify	-4130	両端揃え
  xlVAlignTop	-4160	上揃え（既定値）

• オブジェクト（必須）
  TextFrame【ﾃｷｽﾄﾌﾚｰﾑ】オブジェクトを返すオブジェクト式を指定します。
• 設定値（必須）
  レイアウト枠の垂直方向のオーバーフロー設定を指定します。XlOartVerticalOverflow列挙型の定数で指定します。

  XlOartVerticalOverflow列挙型の定数

  定数	値	内容
  xlOartVerticalOverflowOverflow	0	テキストはレイアウト枠から はみ出すことができます。
  xlOartVerticalOverflowClip	1	水平方向のレイアウト枠に 収まらないテキストを非表示にします。
  xlOartVerticalOverflowEllipsis	2	垂直方向のレイアウト枠内に収まらない テキストを非表示にし、表示されるテキストの 終わりに省略記号 (…) を追加します。

• オブジェクト（必須）
  TextFrame【ﾃｷｽﾄﾌﾚｰﾑ】オブジェクトを返すオブジェクト式を指定します。
• 設定値（必須）
  テキストレイアウト枠の下側の余白をポイント単位で設定します。

• オブジェクト（必須）
  TextFrame【ﾃｷｽﾄﾌﾚｰﾑ】オブジェクトを返すオブジェクト式を指定します。
• 設定値（必須）
  テキストレイアウト枠の左側の余白をポイント単位で設定します。

• オブジェクト（必須）
  TextFrame【ﾃｷｽﾄﾌﾚｰﾑ】オブジェクトを返すオブジェクト式を指定します。
• 設定値（必須）
  テキストレイアウト枠の右側の余白をポイント単位で設定します。

• オブジェクト（必須）
  TextFrame【ﾃｷｽﾄﾌﾚｰﾑ】オブジェクトを返すオブジェクト式を指定します。
• 設定値（必須）
  テキストレイアウト枠の上側の余白をポイント単位で設定します。

• オブジェクト（必須）
  TextFrame【ﾃｷｽﾄﾌﾚｰﾑ】オブジェクトを返すオブジェクト式を指定します。
• 設定値（必須）
  テキストの方向をMsoTextOrientation列挙型の定数で指定します。

  MsoTextOrientation列挙型の定数

  定数	値	内容
  msoTextOrientationHorizontal	1	水平方向（既定値）
  msoTextOrientationUpward	2	下から上
  msoTextOrientationDownward	3	上から下
  msoTextOrientationVerticalFarEast	4	垂直方向 （アジアの言語のサポート用）
  msoTextOrientationVertical	5	垂直方向
  msoTextOrientationHorizontalRotatedFarEast	6	水平方向および回転 （アジアの言語のサポート用）

  ※通常、日本語環境では、横書きの場合は「msoTextOrientationHorizontal」縦書きの場合は「msoTextOrientationVerticalFarEast」を設定します。

Sub 図形テキスト()
Dim 範囲 As Range
Dim 図形 As Shape
Set 範囲 = Range("B2:F10")
Set 図形 = ActiveSheet.Shapes.AddShape(msoShapeOval, _
           範囲.Left, 範囲.Top, 範囲.Width, 範囲.Height)
図形.Fill.ForeColor.RGB = RGB(255, 0, 0)
With 図形.TextFrame
 .Characters.Text = "Excel VBA"
 .Characters.Font.Color = RGB(0, 0, 255)
 .Characters.Font.Size = 40
 .HorizontalAlignment = xlHAlignCenter
 .VerticalAlignment = xlVAlignCenter
End With
End Sub

3行目【Dim 図形 As Shape】
作成した図形を格納する変数「図形」をオブジェクト型(Shape)で宣言します。

4行目【Set 範囲 = Range(“B2:F10”)】
図形の位置と大きさの基準となるセル範囲をRangeプロパティで指定してオブジェクト変数「範囲」にSet【ｾｯﾄ】キーワードを使用して代入します。

5行目～6行目【Set 図形 = ActiveSheet.Shapes.AddShape(msoShapeOval, _
範囲.Left, 範囲.Top, 範囲.Width, 範囲.Height)】
Shapes【ｼｪｲﾌﾟｽ】コレクションのAddShape【ｱﾄﾞｼｪｲﾌﾟ】メソッドを使用して図形を表すShape【ｼｪｲﾌﾟ】オブジェクトを取得しオブジェクト変数「図形」にSet【ｾｯﾄ】キーワードを使用して代入します。

7行目【図形.Fill.ForeColor.RGB = RGB(255, 0, 0)】
変数「図形」に格納されているShape【ｼｪｲﾌﾟ】オブジェクトのFill【ﾌｨﾙ】プロパティを使用して、図形の書式を表すFillFormat【ﾌｨﾙﾌｫｰﾏｯﾄ】オブジェクトを取得し、ForeColor【ﾌｫｱｶﾗｰ】プロパティで色の書式を表すColorFormat【ｶﾗｰﾌｫｰﾏｯﾄ】オブジェクトを取得してRGB【ｱｰﾙｼﾞｰﾋﾞｰ】プロパティにRGB関数で図形の塗りつぶしの色を赤に設定します。

8行目【With 図形.TextFrame】
変数「図形」に格納されているShape【ｼｪｲﾌﾟ】オブジェクトのTextFrame【ﾃｷｽﾄﾌﾚｰﾑ】プロパティでテキストレイアウト枠を表すTextFrame【ﾃｷｽﾄﾌﾚｰﾑ】オブジェクトを取得してWith【ｳｨｽﾞ】ステートメントで指定します。

9行目【.Characters.Text = “Excel VBA”】
With【ｳｨｽﾞ】ステートメントで指定したTextFrame【ﾃｷｽﾄﾌﾚｰﾑ】オブジェクトのCharacters【ｷｬﾗｸﾀｰｽﾞ】メソッドを使用して図形のレイアウト枠に含まれる文字範囲を表す
Characters【ｷｬﾗｸﾀｰｽﾞ】 オブジェクトを取得し、Text【ﾃｷｽﾄ】プロパティを使用して文字列を設定します。

10行目【.Characters.Font.Color = RGB(0, 0, 255)】
上記と同じく、文字列を参照して、Font【ﾌｫﾝﾄ】プロパティでFont【ﾌｫﾝﾄ】オブジェクトを取得し、Color【ｶﾗｰ】プロパティにRGB関数で青を設定して文字列に色を設定します。

11行目【 .Characters.Font.Size = 40】
文字列のサイズをFont【ﾌｫﾝﾄ】オブジェクトのSize【ｻｲｽﾞ】プロパティで40に設定します。

12行目【 .HorizontalAlignment = xlHAlignCenter】
TextFrame【ﾃｷｽﾄﾌﾚｰﾑ】オブジェクトのHorizontalAlignment【ﾎﾘｿﾞﾝﾀﾙｱﾗｲﾒﾝﾄ】プロパティを使用して文字列の水平位置を中央揃えに設定します。

13行目【.VerticalAlignment = xlVAlignCenter】
TextFrame【ﾃｷｽﾄﾌﾚｰﾑ】オブジェクトのVerticalAlignment【ﾊﾞｰﾃｨｶﾙｱﾗｲﾒﾝﾄ】プロパティを使用して文字列の垂直位置を中央揃えに設定します。