Shapes.AddTextEffect 方法 (Excel)

建立文字藝術師物件。 傳回 Shape 物件，該物件代表新的文字藝術師物件。

語法

運算式。AddTextEffect (PresetTextEffect、 Text、 FontName、 FontSize、 FontBold、 FontItalic、 Left、 Top)

expression 代表 Shapes 物件的變數。

參數

名稱	必要/選用	資料類型	說明
PresetTextEffect	必要	MsoPresetTextEffect	預設的文字效果。
Text	必要	String	文字藝術師中的文字
FontName	必要	String	文字藝術師中所用的字型名稱
FontSize	必要	Single	大小 (以文字藝術師中使用的字型) 為單位 。
FontBold	必要	MsoTriState	將文字藝術師中所使用的字型設定為粗體。
FontItalic	必要	MsoTriState	將文字藝術師中所使用的字型設定為斜體。
Left	必要	Single	文字藝術師之邊界的左上角位置 (以點為單位)，與文件左上角相對。
Top	必要	Single	文字藝術師之邊界的左上角位置 (以點為單位)，與文件頂端相對。

傳回值

圖形

註解

當您將文字藝術師新增至檔時，文字藝術師的高度和寬度會根據您指定的文字大小和數量自動設定。

範例

本範例會將包含文字 Test 的文字藝術師新增至 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)

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。