ShapeRange.TextEffect 屬性 (Publisher)

會傳回 TextEffectFormat 物件代表的文字格式的文字藝術師物件的屬性。

語法

運算式。TextEffect

表達 代表 ShapeRange 物件的 變數。

範例

本範例會將文字藝術師物件新增至使用中出版物，並將其他文字格式化並插入其中。

Sub AddFormatNewWordArt() 
 With ActiveDocument.Pages(1).Shapes.AddTextEffect( _ 
 PresetTextEffect:=msoTextEffect1, Text:="Test", _ 
 FontName:="Snap ITC", FontSize:=30, FontBold:=msoTrue, _ 
 FontItalic:=msoFalse, Left:=150, Top:=130) 
 .Rotation = 90 
 With .TextEffect 
 .RotatedChars = msoTrue 
 .Text = "This is a " & .Text 
 End With 
 .Width = 250 
 End With 
End Sub

支援和意見反應

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