Shapes.AddTextbox メソッド (発行元)

テキスト ボックスを表す新しい Shape オブジェクトを、指定した Shapes コレクションに追加します。

構文

式。AddTextbox (方向、 左、 上、 幅、 高さ)

表現Shapes オブジェクトを表す変数です。

パラメーター

名前 必須 / オプション データ型 説明
Orientation 必須 PbTextOrientation テキスト ボックス内のテキストの向きを指定します。
Left 必須 バリアント型 (Variant) テキスト ボックスを表す図形の左端の位置を指定します。
Top 必須 バリアント型 (Variant) テキスト ボックスを表す図形の上端の位置を指定します。
Width 必須 バリアント型 (Variant) テキスト ボックスを表す図形の幅を指定します。
Height 必須 バリアント型 (Variant) テキスト ボックスを表す図形の高さを指定します。

戻り値

Shape

注釈

左、上、幅、高さのパラメーターの場合、数値はポイント単位で評価されます。文字列は、Microsoft Publisher でサポートされている任意の単位で指定できます (たとえば、"2.5 in")。

Orientation パラメーターには、Microsoft Publisher タイプ ライブラリで宣言されている PbTextOrientation 定数のいずれかを指定します。次の表に示します。

定数 説明
pbTextOrientationHorizontal 左から右へ記述する言語用の横書きのテキスト ボックス。
pbTextOrientationRightToLeft 右から左へ記述する言語用の横書きのテキスト ボックス。 この定数は、右から左に記述する言語が選択されていない場合は無効です。
pbTextOrientationVerticalEastAsia 東アジア言語用の縦書きのテキスト ボックス。 東アジア言語以外の言語が選択されている場合、テキストは右に 90 度回転されて表示されます。

例

次の使用例は、作業中の文書の先頭ページに、新しい横書きのテキスト ボックスを追加します。

Dim shpTextBox As Shape 
 
Set shpTextBox = ActiveDocument.Pages(1).Shapes.AddTextBox _ 
 (Orientation:=pbTextOrientationHorizontal, _ 
 Left:=144, Top:=144, _ 
 Width:=72, Height:=18)

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on