テキスト ボックスを作成します。 新しいテキスト ボックスを表す Shape オブジェクトを返します。
構文
expression。
AddTextbox( _Orientation_, _Left_, _Top_, _Width_, _Height_ )
表現Shapes オブジェクトを表す変数です。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| Orientation | 必須 | MsoTextOrientation | テキストの向きを指定します。 これらの定数のいくつかを選択またはインストールされている言語サポート (たとえば、日本語) によっては使用できないがあります。 |
| Left | 必須 | Single | スライドの左端を基準にテキスト ボックスの左端の位置をポイント単位で指定します。 |
| Top | 必須 | Single | スライドの上端を基準にテキスト ボックスの上端の位置をポイント単位で指定します。 |
| Width | 必須 | Single | テキスト ボックスの幅をポイント単位で指定します。 |
| Height | 必須 | Single | テキスト ボックスの高さをポイント単位で指定します。 |
戻り値
Shape
例
次の使用例は、"テスト ボックス" というテキストを含むテキスト ボックスを myDocument に追加します。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=200, Height:=50).TextFrame _
.TextRange.Text = "Test Box"
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。