Propriedade ColorFormat.BaseRGB (Publisher)

Devolve ou define uma constante PbColorType que representa o formato de cor RGB original antes de serem aplicadas propriedades de alteração de cores, como o sombreado e o sombreado. 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 ilumina a cor e, em seguida, 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.