PowerPoint) (Shapes.AddTextEffect 方法

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

語法

expression。 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	相對於投影片上緣，以點為單位指定文字藝術師邊界上緣的位置。

傳回值

圖形

註解

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

範例

本範例在 myDocument 中新增 [文字藝術師] 物件，該物件中的文字為 "Test"。

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

另請參閱

Shapes 物件

支援和意見反應

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