You don't need the control, besides which inserting this control in a userform creates extra overhead pls users will need this ocx registered.
Option Explicit
'// Ivan F Moala
'// http://www.XcelFiles.com
'// 16th June 2002
Private Type CHOOSECOLOUR
lStructSize As Long
hwndOwner As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Declare Function ChooseColorA _
Lib "Comdlg32" ( _
lpChooseColor As CHOOSECOLOUR) _
As Long
Declare Function FindWindowA _
Lib "User32" ( _
ByVal lpClassName As Any, _
ByVal lpWindowName As String) _
As Long
Function SelectColour(Code_RGB) As Boolean
Dim CColor As CHOOSECOLOUR
Dim CustColors As String * 16
With CColor
.lStructSize = 36
.hwndOwner = FindWindowA(vbNullString, Application.Caption)
.lpCustColors = CustColors
.flags = 2
End With
If ChooseColorA(CColor) = 0 Then Exit Function
Code_RGB = CColor.rgbResult
SelectColour = True
End Function
Sub Tester()
Dim Code_RGB As Long
If Not SelectColour(Code_RGB) Then Exit Sub
MsgBox "The RGB code you chose:=" & Code_RGB & vbCr & _
"Red:=" & RGBRed(Code_RGB) & vbCr & _
"Green:=" & RGBGreen(Code_RGB) & vbCr & _
"Blue:=" & RGBBlue(Code_RGB)
'// Activecell colour
'ActiveCell.Interior.Color = Code_RGB
'// OR Selection
Selection.Interior.Color = Code_RGB
End Sub
Public Function RGBRed(RGBCol As Long) As Integer
'// Return the Red component from an RGB Coloor
RGBRed = RGBCol And &HFF
End Function
Public Function RGBGreen(RGBCol As Long) As Integer
'// Return the Green component from an RGB Colour
RGBGreen = ((RGBCol And &H100FF00) / &H100)
End Function
Public Function RGBBlue(RGBCol As Long) As Integer
'// Return the Blue component from an RGB Colour
RGBBlue = (RGBCol And &HFF0000) / &H10000
End Function
OR
Sub Kolour()
Application.Dialogs(xlDialogPatterns).Show
End Sub
