| Gets the color format of the foreground color. | |
| Syntax: | Set GefColorFormat = object.ForeColor |
| Description: | This is the main color of the property. For lines
and solid fills, this is the color. Example: Sub FillFormat_ForeColor() Dim oCimObj As GefObject Dim oCimFillFmt As
GefFillFormat Set oCimObj = CimGetObject Set oCimFillFmt =
oCimObj.Fill If Not oCimFillFmt Is Nothing
Then oCimFillFmt.ForeColor.RGB
= &HBB& End If CimGetScreen.Refresh False End Sub |