Shapes.AddTextEffect メソッド (Publisher)
ワードアート オブジェクトを表す新しい Shape オブジェクトを、指定した Shapes コレクションに追加します。
構文
式。AddTextEffect (PresetTextEffect、 Text、 FontName、 FontSize、 FontBold、 FontItalic、 Left、 Top)
表現Shapes オブジェクトを表す変数です。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
PresetTextEffect | 必須 | MsoPresetTextEffect | 使用する既定のテキスト効果です。 MsoPresetTextEffect 定数の値は、(左右からおよび上から下に番号が付けられます)、[ ワードアート ギャラリー ] ダイアログ ボックスに表示される形式に対応します。 Microsoft Office タイプ ライブラリで宣言されている MsoPresetTextEffect クラスの定数のいずれかを指定できます。 MsoTextEffectMixed 定数はサポートされていません。 |
テキスト | 必須 | String | ワードアート オブジェクトで使用する文字列を指定します。 |
FontName | 必須 | String | ワードアート オブジェクトで使用するフォントの名前を指定します。 |
FontSize | 必須 | バリアント型 (Variant) | ワードアート オブジェクトに使用するフォント サイズ。 数値は ポイント単位で評価されます。文字列は、Microsoft Publisher でサポートされている任意の単位 (例: "2.5 in") に含めることができます。 |
FontBold | 必須 | MsoTriState | ワードアートの文字列に太字を設定するかどうかを指定します。 |
FontItalic | 必須 | MsoTriState | ワードアートの文字列に斜体を設定するかどうかを指定します。 |
Left | 必須 | バリアント型 (Variant) | ワードアート オブジェクトを表す図形の左端の位置を指定します。 |
Top | 必須 | バリアント型 (Variant) | ワードアート オブジェクトを表す図形の上端の位置を指定します。 |
戻り値
Shape
注釈
Left パラメーターと Top パラメーターの場合、数値はポイント単位で評価されます。文字列は、Publisher でサポートされている任意の単位 (例: "2.5 in") に含めることができます。
ワードアート オブジェクトの高さと幅は、使用する文字列と書式設定によって変わります。
プロパティを使用して既存のワードアート オブジェクトを編集できる TextEffectFormat オブジェクトを取得するには、Shape.TextEffect プロパティを使用します。
FontBold パラメーターは、Microsoft Office タイプ ライブラリで宣言され、次の表に示す MsoTriState クラスの定数のいずれかになります。
定数 | 説明 |
---|---|
msoFalse | ワードアート テキストに太字は設定されません。 |
msoTrue | ワードアート テキストに太字が設定されます。 |
FontItalic パラメーターには、次の表に示す MsoTriState クラスの定数のいずれかを指定できます。
定数 | 説明 |
---|---|
msoFalse | ワードアート テキストに斜体は設定されません。 |
msoTrue | ワードアート テキストに斜体が設定されます。 |
例
次の使用例は、作業中の文書の先頭ページにワードアート オブジェクトを追加します。
Dim shpWordArt As Shape
Set shpWordArt = ActiveDocument.Pages(1).Shapes.AddTextEffect _
(PresetTextEffect:=msoTextEffect7, Text:="Annual Report", _
FontName:="Arial Black", FontSize:=24, _
FontBold:=msoFalse, FontItalic:=msoFalse, _
Left:=144, Top:=72)
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示