Cómo crear un menú dentro de un USERFORM de Excel

Código fuente:
Sub crear_menu()Dim menu As CommandBarDim submenu As CommandBarPopupDim boton1 As CommandBarButtonDim boton2 As CommandBarButtonSet menu = Application.CommandBars.Add(Name:="MiBarra", Position:=msoBarPopup, MenuBar:=False, Temporary:=True)With menu Set submenu = .Controls.Add(Type:=msoControlPopup) With submenu .Caption = "SubMenú" Set boton1 = .Controls.Add(Type:=msoControlButton) With boton1 .Caption = "Saludo" .FaceId = 71 .OnAction = "Macro1" End With Set boton2 = .Controls.Add(Type:=msoControlButton) With boton2 .Caption = "Colorear" .FaceId = 72 .OnAction = "Macro2" End With End WithEnd WithEnd SubSub Macro1()MsgBox "Hola Mundo"End SubSub llamar_menu() On Error Resume Next Application.CommandBars("MiBarra").Delete crear_menu Application.CommandBars("MiBarra").ShowPopup End SubSub Macro2() ActiveCell.Interior.Color = RGB(255, 0, 0)End Sub

Видео Cómo crear un menú dentro de un USERFORM de Excel канала Exoluciones Y más