Palette Color Control in UserForm

[Guest]

How can I insert a palette color control in my form?

Thanks, Carlo

 

[Bob Phillips]

Carlo,

This is how I do it. I have a button, and this button calls a function that
shows the colour picker, and returns the chosen colour.

This is the function.

'---------------------------------------------------------------------------
Function GetColorindex(Optional Text As Boolean = False) As Long
'---------------------------------------------------------------------------
Dim rngCurr As Range

Set rngCurr = Selection
Application.ScreenUpdating = False
Range("IV1").Select
Application.Dialogs(xlDialogPatterns).Show
GetColorindex = ActiveCell.Interior.ColorIndex
If GetColorindex = xlColorIndexAutomatic And Not Text Then
GetColorindex = xlColorIndexNone
End If
ActiveCell.Interior.ColorIndex = xlColorIndexAutomatic
rngCurr.Select
Set rngCurr = ActiveSheet.UsedRange
Application.ScreenUpdating = True
End Function


--

HTH

RP
(remove nothere from the email address if mailing direct)