Mimic Font Color Picker - Apply Active(?) Color

I'll spare you the reason for why I'm trying to replicate part of the functionality of the built-in FontColorPicker (RibbonX customization).

Is there some system or environment property I can use in VBA to change the font color (cell contents) to the "active" font color?
If I've already used the FontColorPicker to apply say Red to cell contents, does Excel remember that color selection in a system property that I can make use of?

Looking to do the same for CellFillColorPicker.

Let me know if I'm not being clear enough with my request.

Thanks in advance,
Delain

cross-posted: http://www.eileenslounge.com/viewtopic.php?f=27&t=28225

This will not get the value, but it will apply the colors to the currently selected cells. So your code will have to Select the desired cells.

Application.CommandBars.ExecuteMso "FontColorPicker"
Application.CommandBars.ExecuteMso "CellFillColorPicker"

Ref: https://social.msdn.microsoft.com/Fo...forum=exceldev

Thanks for the suggestion. I already have the idMSO syntax for the "pickers" to use in my RibbonX setup (i.e. CellFillColorPicker, FontColorPicker).
Problem is, when adding the pickers into a RibbonX they seem to lose the built-in functionality of being able to click on their associated "face" button and have it apply, whichever color is currently showing on the face as the active color, to the selected cell contents.

So, I was going to rework my RibbonX to have a Splitbutton with a Button to perform the apply-active-color as the face of the Splitbutton. And then have a child menu, below the Splitbutton, with the colorpicker Gallery included there. Make sense?

To do that, I need to know where Excel stores the active color (most-recently selected via a picker) so that I can access that system variable.

Thank you,
Delain

I am working on how to implement this.

Thank you,
Delain

Okay, appears I jumped the Submit button too quickly before fully evaluating 6StringJazzer's input here.
Apologies for this and already applying salve to my back for the 39+1 lashes I've subjected myself to, on my own.

This indeed does the trick.
For others who may need this:

Sub FontColorPicker_mimic(control As IRibbonControl)

    With ActiveCell
        Application.CommandBars.ExecuteMso "FontColorPicker"
    End With
    
End Sub

Thank you,
Delain

Kenneth,

Thank you for your work.
I'm not following this all the way.

Correct me on this:
Your procedure is "getting" the font color and the cell interior color from a cell that is empty, outside of the used area, after applying the active colors to that empty cell, correct? Then returning those values to the fc and ic variables?

How do you see me using this based on the description of the problem? (I'm not a VBA expert, by any strectch, so I'm sure I'm missing your intention.)
How would I use the fc and ic variables?

Thanks in advance,
Delain