Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Showing the standard XL Colour chart
Hi,
From within a VBA Form I need to open up the standard Excel colour chart so that the user can make a selection which will become a variable I use elsehwere in the code. Can someone point me in the right direction please. Many thanks. __ Richard Buttrey Grappenhall, Cheshire, UK __________________________ |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Showing the standard XL Colour chart
Are you talking about showing this:
Application.Dialogs(xlDialogPatterns).Show or This Application.Dialogs(xlDialogColorPalette).Show These are not generic color picker dialogs. The don't return the Selection. Bob Phillips has posted code like this which actually colors a cell and then gets the color of the cell: '-----------------------------*------------------------------* 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 -- Regards, Tom Oglvy "Richard Buttrey" wrote in message ... Hi, From within a VBA Form I need to open up the standard Excel colour chart so that the user can make a selection which will become a variable I use elsehwere in the code. Can someone point me in the right direction please. Many thanks. __ Richard Buttrey Grappenhall, Cheshire, UK __________________________ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Showing the standard XL Colour chart
'-----------------------------*------------------------------*-------------- -- 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) "Richard Buttrey" wrote in message ... Hi, From within a VBA Form I need to open up the standard Excel colour chart so that the user can make a selection which will become a variable I use elsehwere in the code. Can someone point me in the right direction please. Many thanks. __ Richard Buttrey Grappenhall, Cheshire, UK __________________________ |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Showing the standard XL Colour chart
This should get you started: Application.Dialogs.Item(xlDialogColorPalette).Sho w Hope this helps! -- malik641 ------------------------------------------------------------------------ malik641's Profile: http://www.excelforum.com/member.php...o&userid=24190 View this thread: http://www.excelforum.com/showthread...hreadid=480459 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Standard Chart from PivotTable ? | Charts and Charting in Excel | |||
Why has Excel stopped showing colour changes to fonts & text? | Excel Discussion (Misc queries) | |||
Excel - highlight colour of cell not showing except on preview | Excel Discussion (Misc queries) | |||
No showing of cellnumbers used in formular with colour | Excel Worksheet Functions | |||
How do I set up a standard form showing incentive calculations | Excel Discussion (Misc queries) |