Propriedade ColorFormat.BaseRGB (Publisher)

Retorna ou define uma constante PbColorType que representa o formato de cor RGB original antes que propriedades de alteração de cor, como tinting e sombreamento, sejam aplicadas. Leitura/gravação.

Sintaxe

expressão. BaseRGB

Expressão Uma variável que representa um objeto ColorFormat .

Valor de retorno

PbColorType

Exemplo

Este exemplo cria uma forma, define a cor de preenchimento e clareia a cor e cria uma segunda forma e aplica a cor RGB original da primeira forma à segunda forma.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.