得到顏色的RGB值

Public Function GETRGB(lngColor As Long) As String
    Dim strR As String
    Dim strG As String
    Dim strB As String
    strR = CStr(lngColor Mod 256)
    strG = CStr(lngColor / 256 Mod 256)
    strB = CStr(lngColor / 256 / 256)
    GETRGB = "" & strR & "," & strG & "," & strB & ""

 End Function

然後調用GETRGB就可以了