Publisher) (ColorFormat.BaseRGB 屬性

會傳回或設定代表原始 RGB 色彩格式的 PbColorType 常 數，再套用色彩變更屬性，例如色階和網底。 讀取/寫入。

語法

運算式。BaseRGB

表達 代表 ColorFormat 物件的 變數。

傳回值

PbColorType

範例

本範例會建立圖案、設定填滿色彩並使色彩變淡，然後建立第二個圖案，並將第一個圖案的原始 RGB 色彩套用至第二個圖案。

Sub SetBaseRGB() 
 Dim shpOne As Shape 
 
 With ActiveDocument.Pages(1).Shapes 
 Set shpOne = .AddShape(Type:=msoShapeHeart, _ 
 Left:=150, Top:=150, Width:=300, Height:=300) 
 With shpOne.Fill.ForeColor 
 .RGB = RGB(Red:=160, Green:=0, Blue:=255) 
 .TintAndShade = 0.9 
 End With 
 .AddShape(Type:=msoShapeRectangle, Left:=62, _ 
 Top:=500, Width:=488, Height:=100).Fill _ 
 .ForeColor.RGB = shpOne.Fill.ForeColor.BaseRGB 
 End With 
End Sub

支援和意見反應

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