Public Function GetRevColor(lngColor As Long) As Long
Dim lngR As Long
Dim lngG As Long
Dim lngB As Long
lngR = lngColor Mod 256
lngG = lngColor / 256 Mod 256
lngB = lngColor / 256 / 256 Mod 256
lngR = 255 - lngR
lngG = 255 - lngG
lngB = 255 - lngB
GetRevColor = lngR + lngG * 256 + lngB * 256 * 256
' Debug.Print lngR & "-"; lngG & "-" & lngB
End Function
输入黑色的颜色值0 返回白色的颜色值16777215