Publisher (的 FillFormat.GradientStyle 屬性)

會傳回指出指定填滿之漸層樣式的 MsoGradientStyle 常數。 唯讀。

語法

運算式。GradientStyle

表達 代表 FillFormat 物件的 變數。

傳回值

MsoGradientStyle

註解

使用 OneColorGradient、 PresetGradient或 TwoColorGradient 方法來設定填滿的漸層樣式。

若嘗試對沒有漸層的填滿傳回此屬性，則會產生錯誤。 使用 Type 屬性即可判斷填滿是否有漸層。

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

範例

本範例在目前出版物中新增一個矩形，並將其填滿設為與 rect1 圖案一樣的漸層樣式。 為使本範例能正常執行，rect1 必須有漸層填滿設定。

Dim intStyle As Integer 
 
With ActiveDocument.Pages(1).Shapes 
 ' Store gradient style of rect1. 
 intStyle = .Item("rect1").Fill.GradientStyle 
 ' Add new rectangle. 
 With .AddShape(Type:=msoShapeRectangle, _ 
 Left:=0, Top:=0, Width:=40, Height:=80).Fill 
 ' Set color and gradient of new rectangle. 
 .ForeColor.RGB = RGB(128, 0, 0) 
 .OneColorGradient Style:=intStyle, _ 
 Variant:=1, Degree:=1 
 End With 
End With 

支援和意見反應

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