CanvasShapes.AddTextEffect 方法 (Word)
將文字藝術師圖案新增至繪圖畫布。 會傳回代表文字藝術師的 Shape 物件。
語法
運算式。AddTextEffect (PresetTextEffect、 Text、 FontName、 FontSize、 FontBold、 FontItalic、 Left、 Top)
需要 expression。 代表 CanvasShapes 物件的 變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 說明 |
|---|---|---|---|
| PresetTextEffect | 必要 | Mso | 預設的文字效果。 MsoPresetTextEffect 常數的值會對應至 [ 文字藝術師圖庫] 對話方塊 (按從左到右和從上到下的順序編號) 中所列的格式。 |
| Text | 必要 | String | 文字藝術師中的文字 |
| FontName | 必要 | String | 文字藝術師中所用的字型名稱 |
| FontSize | 必要 | Single | 文字藝術師中所用的字型大小 (以點為單位) |
| FontBold | 必要 | MsoTriState | msoTrue 文字藝術師的字型設為粗體。 若要設定以正常文字藝術師中所用的字型 msoFalse 。 |
| FontItalic | 必要 | MsoTriState | msoTrue 會將變成斜體文字藝術師的字型。 若要設定以正常文字藝術師中所用的字型 msoFalse 。 |
| 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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。