Get Color from Color Fill on Formatting toolbar

Re: Use current Interior Color

Quote from chrisxs5

I am trying to create a macro that will toggle on and off. It will highlight the active cell upon its selction. I can set the code to whatever color I want, but I would like it to use the color set on the menu bar. Does anyone know how to do this?

Hi,

I was just wondering did you try to change the ColorIndex to the same number as the ColorIndex on your menu bar?

Re: Use current Interior Color

Not sure what you mean by color set on the menu bar
Have you tried using the macro recorder?

Re: Use current Interior Color

Quote from chrisxs5

I am trying to create a macro that will toggle on and off. It will highlight the active cell upon its selction. I can set the code to whatever color I want, but I would like it to use the color set on the menu bar. Does anyone know how to do this?

My macro set with a random color

Code

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    ActiveCell.Select
    With Selection.Interior
        .ColorIndex = 7
    End With
End Sub

I will add the toggle later.

Perhaps you could use this 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

Re: Use current Interior Color

I could be wrong and we'll have to get the OP to clarify but I read got the feeling that he wanted the colour to automatically match the colour of the active window title bar, based on what the user's colour scheme for Windows. This would be similar to selecting a colour on a userform based on the title bar colour.

Re: Use current Interior Color

Unfortunately I don't know how to do that.

Re: Get Active Window Title Bar Color

I changed the thread title Chris and hopefully we'll scare up that smart person here that knows the answer.

Re: Use current Interior Color

Quote from chrisxs5

Yep, I dont either. I think I am going in the right direction but still far away. All help still apprecaited.

Seeing the later posts, I don't think mine will help. It is a colour picker, and you want a 'get the colour already picked' as I read it.

Can you use this

CommandBars("Formatting").Controls("&Fill Color").TooltipText

Re: Use current Interior Color

Chris

Can you verify exactly what you want to do?

Where exactly is this colour coming from?

Re: Use current Interior Color

Quote from norie

Chris

Can you verify exactly what you want to do?

Where exactly is this colour coming from?

Norie, he wants to get it from the Windows operating system. You know when you right-click on the desktop, Properties, Appearance. The user can select a Color Scheme that will pre-determine what the color of the Window Title Bars (both active and non-active) are or the user can go into Advanced and set the colour of the Active Window Title Bar.

I use the default color scheme blue so my Active Window Title Bar is blue. But if I changed my color scheme to Silver, then my Active Window Title Bar is Silver.

So what Chris wants to do is use as a fill color for a cell on his worksheet the same colour for which the Active Window Title Bar is currently set for the user on any particular computer.

Or at least that is the way I read it. Through VBA you can get the ActiveWindow.Caption but not the colour. I know there are ways to get other information from Windows OS so I think Chris is just looking for a way to get that colour from Windows OS, even if it's in a RGB format instead of a color index, and use it in his VBA Code.

Re: Get Active Window Title Bar Color

It's still unclear what you mean.

Please see the attached image.

Re: Get Active Window Title Bar Color

You sure Barbarr? Sounds like the normal Fill Color button in excel.

Chris, I think what Bob was refering to with

Quote

CommandBars("Formatting").Controls("&Fill Color").TooltipText

is that is you hold the mouse over the button the tooltips displays text such as,
Fill Color (Red)
Fill Color (Blue)

With this information you can parse the text with a Select statement and determine the colorindex.

I have done some searching but can not find a way to determine the current Fill color value