Theres a lot of code out there for getting the windows colour picker dialog, but it can be hard to get a RGB code out of this. For example, if you want to set the colour of a form text box, then get it's RGB value to colour a worksheet cell. (That's what i used it for anyway!)
Heres one method:
VBA:
-
Private Declare Function GetSysColor Lib "user32" _
-
(ByVal nIndex As Long) As Long
-
<blockquote>Function GetRGBColors(ByVal oColor As OLE_COLOR)
-
If oColor And &H80000000 Then
-
oColor = GetSysColor(oColor And &HFF&)
-
End If
-
GetRGBColors = Array( _
-
(oColor And &HFF&), _
-
(oColor And &HFF00&) \ &H100, _
-
(oColor And &HFF0000) \ &H10000)
-
End Function
-
-
Sub RGB()
-
Dim vRGB() As Variant
-
vRGB = (GetRGBColors(ActiveCell.Interior.Color))
-
MsgBox "Red " & vRGB(0) & ", Green " _
-
& vRGB(1) & ", Blue " & vRGB(2)
-
End Sub
Related posts:
