Gets and sets the RGB value of the color, if the Type of the GefColorFormat is gefColorRGB. | |
Syntax: | VARIANT =
object.RGB object.RGB = VARIANT |
Description: | When set, also sets the Type to gefColorRGB. The format of the RGB value is &hBBGGRR. Where RR,GG, and BB are the two digit hex values(from &h00 to &hFF) for the red, green, and blue components of the color you want. You can also use the formula (red + green * 256 + blue * 256 *
256) .Example: Sub GefButtonFormat_RGB() Dim oCimObj As GefObject Dim oCimBtnFmt As
GefButtonFormat Dim oCimColorFmt As
GefColorFormat Set oCimObj = CimGetObject Set oCimBtnFmt =
oCimObj.ButtonFormat If Not oCimBtnFmt Is Nothing
Then Set
oCimColorFmt = oCimBtnFmt.FaceColor If Not
oCimColorFmt Is Nothing Then oCimColorFormat.RGB
= &HBB& 'red End
If End If End Sub |