Color Pallete

[bjurney]

I found this bit of code in my searches and I was wondering if anyone might have an idea of how I can choose a color from the color pallete and have my userform change to the color that I choose? I tried a few things, but it doesnt seem to like to work with a userform. Not even sure if this is possible though.

Application.Dialogs.Item(xlDialogColorPalette).Show

 

[bjurney]

bump

 

[shg]

Try this:

Sub ColorMyForm()
    myForm.Show vbModeless
    myForm.BackColor = ColorPick(True)
End Sub
 
Function ColorPick(Optional bColor As Boolean = False) As Long
    ' returns the color or colorindex returned from the Patterns dialog
    Dim rSel        As Range
 
    Set rSel = Selection
    Application.ScreenUpdating = False
    With Cells(Rows.Count, "A")
        .Select
        .Interior.ColorIndex = xlColorIndexNone
        Application.Dialogs(xlDialogPatterns).Show
        ColorPick = IIf(bColor, .Interior.Color, .Interior.ColorIndex)
        .Offset(, 1).Copy Destination:=.Cells
    End With
    
    rSel.Select
    ActiveSheet.UsedRange
    Application.ScreenUpdating = True
End Function