Excel VBA ワークシートにテキストボックスを作成する

• オブジェクト（必須）
  Shapes【ｼｪｲﾌﾟｽ】コレクションを指定します。
• Orientation【ｵﾘｴﾝﾃｨｰｼｮﾝ】（必須）
  テキストボックスの文字列の向きをMsoTextOrientation列挙型の定数で指定します。

  MsoTextOrientation列挙型の定数

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

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

• Left【ﾚﾌﾄ】（必須）
  テキストボックスの左端の位置をポイント単位で指定します。
• Top【ﾄｯﾌﾟ】（必須）
  テキストボックスの上端の位置をポイント単位で指定します。
• Width【ﾜｲｽﾞ】（必須）
  テキストボックスの幅をポイント単位で指定します。
• Height【ﾊｲﾄ】（必須）
  テキストボックスの高さをポイント単位で指定します。

Sub ワークシートテキストボックス追加()
Dim 範囲 As Range
Set 範囲 = Range("B2:F10")
ActiveSheet.Shapes.AddTextbox _
            Orientation:=msoTextOrientationHorizontal, _
            Left:=範囲.Left, Top:=範囲.Top, _
            Width:=範囲.Width, Height:=範囲.Height
End Sub

3行目【Set 範囲 = Range(“B2:F10”)】
テキストボックスの位置と大きさを表すセル範囲をRange【ﾚﾝｼﾞ】オブジェクトで指定して
オブジェクト変数「範囲」にSet【ｾｯﾄ】キーワードを使用して代入します。

4行目～7行目【ActiveSheet.Shapes.AddTextbox _
Orientation:=msoTextOrientationHorizontal, _
Left:=範囲.Left, Top:=範囲.Top, _
Width:=範囲.Width, Height:=範囲.Height】
Shapes【ｼｪｲﾌﾟｽ】コレクションのAddTextbox【ｱﾄﾞﾃｷｽﾄﾎﾞｯｸｽ】メソッドを使用して
ワークシートにテキストボックスを追加します。テキストボックスの文字列の向きを指定する引数Orientation【ｵﾘｴﾝﾃｨｰｼｮﾝ】には横書きを表すmsoTextOrientationHorizontal【ｴﾑｴｽｵｰﾃｷｽﾄｵﾘｴﾝﾃｰｼｮﾝﾎﾘｿﾞﾝﾀﾙ】を指定しテキストボックスの位置を表す引数、Left、Topテキストボックスの幅と高さを表す引数、Width、Heightには、Range【ﾚﾝｼﾞ】オブジェクトのLeft、Top、Width、Heightプロパティを使用して各座標をポイント単位で取得して設定します。

Sub ワークシートテキストボックス追加2()
Dim 範囲 As Range
Set 範囲 = Range("B2:F10")
With ActiveSheet.Shapes.AddTextbox _
           (Orientation:=msoTextOrientationHorizontal, _
            Left:=範囲.Left, Top:=範囲.Top, _
            Width:=範囲.Width, Height:=範囲.Height)
           .TextFrame.Characters.Font.Size = 30
End With
End Sub

8行目【.TextFrame.Characters.Font.Size = 30】
With【ｳｨｽﾞ】ステートメントで指定した、Shape【ｼｪｲﾌﾟ】オブジェクトに対してテキストフレーム枠を表す、TextFrame【ﾃｷｽﾄﾌﾚｰﾑ】オブジェクトのCharacters【ｷｬﾗｸﾀｰｽﾞ】メソッドを使用してテキストフレーム内の文字列を参照してFont【ﾌｫﾝﾄ】プロパティで文字の種類を表す
Font【ﾌｫﾝﾄ】オブジェクトを参照してSize【ｻｲｽﾞ】プロパティで文字列の大きさを30に設定します。