Propiedad ColorFormat.BaseRGB (Publisher)

Devuelve o establece una constante PbColorType que representa el formato de color RGB original antes de aplicar las propiedades que cambian el color, como el tinte y el sombreado. Lectura y escritura.

Sintaxis

más sencilla.Base RGB

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, después, se crea una segunda forma y se aplica el color RGB original de la primera forma a la segunda.

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.