'Use the Default Background Color Picker Popup menu

Summary: I'm trying to make a custom popup menu with some options, amongst which i would like to insert the default background color picker from the Text Formatting tab. With this, i would love if i could know which color code has been picked so i can set it as a background color for a textbox.

What i have tried:

Sub Make_Popup_CuloriForm()

'Add PopUp menu
With Application.CommandBars.Add(Name:=Mname, Position:=msoBarPopup, _
                                MenuBar:=False, Temporary:=True)
    
With .Controls.Add(Type:=msoControlButton)
    .Caption = "Actualizeaza formular"
    .OnAction = "fCuloriForm"
    .Parameter = "1"
    .FaceId = 159
    .BeginGroup = True
End With

 With .Controls.Add(Type:=msoControlButton)
    .Caption = "Elimina formular"
    .OnAction = "fCuloriForm"
    .Parameter = "2"
    .FaceId = 330
    .BeginGroup = True
End With

End With

' Application.CommandBars.Add c(36)
End Sub

What i need is to add another control to the popup menu, but that should be the builtin color picker.

thank you

LE: This is what i need: like this



Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source