AddTextEffect メソッド (Excel)Shapes.AddTextEffect method (Excel)

ワードアート オブジェクトを作成します。Creates a WordArt object. 新しいワードアート オブジェクトを表す Shape オブジェクトを返します。Returns a Shape object that represents the new WordArt object.

構文Syntax

AddTextEffect(PresetTextEffectTextFontNameFontSizeFontBoldFontItalicLeftTop)expression.AddTextEffect (PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)

表現 Shapes オブジェクトを表す変数です。expression A variable that represents a Shapes object.

パラメーターParameters

名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
PresetTextEffectPresetTextEffect 必須Required MsoPresetTextEffectMsoPresetTextEffect 既定のテキスト効果を指定します。The preset text effect.
TextText StringRequired StringString ワードアートの文字列を指定します。The text in the WordArt.
FontNameFontName StringRequired StringString ワードアートで使用するフォントの名前を指定します。The name of the font used in the WordArt.
FontSizeFontSize 必須Required SingleSingle ワードアートで使用するフォントのサイズをポイント単位で指定します。The size (in points) of the font used in the WordArt.
FontBoldFontBold 必須Required MsoTriStateMsoTriState ワードアートで使用するフォント スタイルを太字にするかどうかを設定します。The font used in the WordArt to bold.
FontItalicFontItalic 必須Required MsoTriStateMsoTriState ワードアートで使用するフォント スタイルを斜体にするかどうかを設定します。The font used in the WordArt to italic.
LeftLeft 必須Required SingleSingle 文書の左上隅を基準にして、ワードアートの境界ボックスの左上隅の位置をポイント単位で指定します。The position (in points) of the upper-left corner of the WordArt's bounding box relative to the upper-left corner of the document.
TopTop 必須Required SingleSingle 文書の上端を基準にして、ワードアートの境界ボックスの左上隅の位置をポイント単位で指定します。The position (in points) of the upper-left corner of the WordArt's bounding box relative to the top of the document.

戻り値Return value

ShapeShape

解説Remarks

文書にワードアートを追加すると、ワードアートの高さと幅は、指定したテキストのサイズと文字数に基づいて自動的に設定されます。When you add WordArt to a document, the height and width of the WordArt are automatically set based on the size and amount of text that you specify.

Example

次の使用例は、テキスト Test を含むワードアートを_myDocument_に追加します。This example adds WordArt that contains the text Test to myDocument.

Set myDocument = Worksheets(1) 
Set newWordArt = myDocument.Shapes.AddTextEffect( _ 
    PresetTextEffect:=msoTextEffect1, Text:="Test", _ 
    FontName:="Arial Black", FontSize:=36, _ 
    FontBold:=msoFalse, FontItalic:=msoFalse, Left:=10, _ 
    Top:=10)

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.