次の方法で共有

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 インチ" など) に含めることができます。

ワードアート オブジェクトの高さと幅は、使用する文字列と書式設定によって変わります。

プロパティを使用して既存のワードアート オブジェクトを編集できる 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 のサポートおよびフィードバックを参照してください。

  • Last updated on