共用方式為


Shapes.AddTextEffect 方法 (Excel)

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

語法

運算式AddTextEffect (PresetTextEffectTextFontNameFontSizeFontBoldFontItalicLeftTop)

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 支援與意見反應