CanvasShapes.AddTextbox メソッド (Word)
描画キャンバスにテキスト ボックスを追加します。 テキスト ボックスを表す Shape オブジェクトを返します。
構文
式。AddTextbox (Orientation, Left, Top, Width, Height)
expression 必須です。 CanvasShapes オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
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 のサポートおよびフィードバックを参照してください。