Shapes.AddTextbox メソッド (Word)
テキスト ボックスを描画キャンバスに追加します。
構文
expression. AddTextbox
( _Orientation_
, _Left_
, _Top_
, _Width_
, _Height_
)
expression 必須です。 Shapes オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
Orientation | 必須 | MsoTextOrientation | 文字列の向きを指定します。 これらの定数のいくつかを選択またはインストールされている言語サポート (たとえば、日本語) によっては使用できないがあります。 |
Left | 必須 | 単精度浮動小数点型 (Single) | テキスト ボックスの左端の位置をポイント数で指定します。 |
Top | 必須 | 単精度浮動小数点型 (Single) | テキスト ボックスの上端の位置をポイント数で指定します。 |
Width | 必須 | 単精度浮動小数点型 (Single) | テキスト ボックスの幅をポイント数で指定します。 |
Height | 必須 | 単精度浮動小数点型 (Single) | テキスト ボックスの高さをポイント数で指定します。 |
戻り値
図形
例
次の使用例は、新規文書内のキャンバスにテキスト ボックスを追加します。
Sub NewCanvasTextbox()
Dim docNew As Document
Dim shpCanvas As Shape
'Create a new document and add a drawing canvas
Set docNew = Documents.Add
Set shpCanvas = docNew.Shapes.AddCanvas _
(Left:=100, Top:=75, Width:=150, Height:=200)
'Add a text box to the drawing canvas
shpCanvas.CanvasItems.AddTextbox _
Orientation:=msoTextOrientationHorizontal, _
Left:=1, Top:=1, Width:=100, Height:=100
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。