Propiedad ColorFormat.BaseRGB (Publisher)

Devuelve o establece una constante PbColorType que representa el formato de color RGB original antes de que se apliquen las propiedades de cambio de color, como el matiz y el sombreado. Lectura y escritura.

Sintaxis

expresión. BaseRGB

expresión Variable que representa un objeto ColorFormat .

Valor devuelto

PbColorType

Ejemplo

En este ejemplo se crea una forma, se establece el color de relleno y se aclara el color y, a continuación, se crea una segunda forma y se aplica el color RGB original de la primera forma a la 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.