Shapes.AddTextEffect 方法 (Word)

將文字藝術師圖案新增至繪圖畫布中。 會傳回 Shape 物件，代表文字藝術師並將其新增至 CanvasShapes 集合。

語法

expression. AddTextEffect( _PresetTextEffect_ , _Text_ , _FontName_ , _FontSize_ , _FontBold_ , _FontItalic_ , _Left_ , _Top_ )

需要 expression。 代表 Shapes 物件的 變數。

參數

名稱	必要/選用	資料類型	說明
PresetTextEffect	必要	MsoPresetTextEffect	預設的文字效果。 MsoPresetTextEffect 常數的值會對應至 [ 文字藝術師圖庫] 對話方塊 (按從左到右和從上到下的順序編號) 中所列的格式。
Text	必要	String	文字藝術師中的文字
FontName	必要	String	文字藝術師中所用的字型名稱
FontSize	必要	Single	文字藝術師中所用的字型大小 (以點為單位)
FontBold	必要	MsoTriState	MsoTrue 文字藝術師的字型設為粗體。
FontItalic	必要	MsoTriState	MsoTrue 會將變成斜體文字藝術師的字型。
Left	必要	Single	相對於繪圖畫布左邊界之文字藝術師圖案左邊界的位置 (以點為測量單位)
Top	必要	Single	相對於繪圖畫布上邊界之文字藝術師圖案上邊界的位置 (以點為測量單位)

註解

在文件中新增 [文字藝術師] 物件時，該物件的高度和寬度將自動根據所指定文字的大小和數量來設定。

範例

此範例會將繪圖畫布加入新文件中，並且將文字藝術師圖案插入含有文字 "Hello, World" 的畫布中。

Sub NewCanvasTextEffect() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 
 'Create a new document and add a drawing canvas 
 Set docNew = Documents.Add 
 Set shpCanvas = docNew.Shapes.AddCanvas( _ 
 Left:=100, Top:=100, Width:=150, _ 
 Height:=50) 
 
 'Add WordArt shape to the drawing canvas 
 shpCanvas.CanvasItems.AddTextEffect _ 
 PresetTextEffect:=msoTextEffect20, _ 
 Text:="Hello, World", FontName:="Tahoma", _ 
 FontSize:=15, FontBold:=msoTrue, _ 
 FontItalic:=msoFalse, _ 
 Left:=120, Top:=120 
End Sub

另請參閱

Shapes 集合物件

支援和意見反應

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