共用方式為


Publisher) (TextEffectFormat.PresetShape 屬性

會傳回或設定代表指定之文字藝術師圖案的 MsoPresetTextEffectShape 常數。 讀取/寫入。

語法

運算式PresetShape

表達 代表 TextEffectFormat 物件的 變數。

傳回值

MsoPresetTextEffectShape

註解

PresetShape屬性值可以是 Microsoft Office 類型程式庫中所宣告的MsoPresetTextEffectShape常數之一。

範例

本範例將使用中出版物第一頁的第一個圖案上的圖案,設定為中心點向下的山形。 若要讓這個範例能夠運作,第一個圖案必須是文字藝術師圖案。

Sub ChangeTextEffect() 
 With ActiveDocument.Pages(1).Shapes(1) 
 If .Type = msoTextEffect Then 
 .TextEffect.PresetShape = msoTextEffectShapeChevronDown 
 End If 
 End With 
End Sub

支援和意見反應

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