Databases Reference
In-Depth Information
FIGURE 5.4
Macro-generated table of system colors.
Cells(Color_Index + 1, 2).Font.ColorIndex = Color_Index
Cells(Color_Index + 1, 2).Value = "[Color " & Color_Index & "]"
If Hex2Dec(Right(RGB, 2)) + Hex2Dec(Mid(RGB, 3, 2)) +
Hex2Dec
(
Left(RGB,
2)) >= 510 Then
'Color is Extremely Light, Darken Cell Background
Cells(Color_Index + 1, 2).Interior.Color =
vbBlack
End If
'Excel shows nibbles in reverse order so make it as RGB
