Ayuda para crear menú desplegable

[Spl0it]

Un saludo muy cordial para todos de antemano, mi consulta es putual, tengo un código asignado a un label en Excel, pero no logro hacela funcionar en AOO, les pongo el código de ejemplo para que por favor me ayuden a validar si es posible hacerlo funcional en AOO:

Código: Seleccionar todo

Private Sub LbConfiguracion_Click()

Application.CommandBars("cell").Reset
Dim Op_Menu As CommandBarControl

For Each Op_Menu In Application.CommandBars("cell").Controls
Op_Menu.Visible = False
Next Op_Menu

With Application.CommandBars("cell").Controls.Add(Temporary:=True)
    .Caption = "Tipos de Documento"
    .OnAction = "Macro_abre"
    .FaceId = 2057
End With
    
With Application.CommandBars("cell").Controls.Add(Temporary:=True)
    .Caption = "Servicios"
    .OnAction = "Macro_abre"
    .FaceId = 3000
End With
 
With Application.CommandBars("cell").Controls.Add(Temporary:=True)
    .Caption = "Zonas"
    .OnAction = "Macro_abre"
    .FaceId = 3733
End With

With Application.CommandBars("cell").Controls.Add(Temporary:=True)
    .Caption = "Procesos"
    .OnAction = "Macro_abre"
    .FaceId = 3265
End With

With Application.CommandBars("cell").Controls.Add(Temporary:=True)
    .Caption = "Causales"
    .OnAction = "Macro_abre"
    .FaceId = 3265
End With

With Application.CommandBars("cell").Controls.Add(Temporary:=True)
    .Caption = "Personal"
    .OnAction = "Macro_abre"
    .FaceId = 3265
End With

Application.CommandBars("cell").ShowPopup

End Sub

Les agradezco el tiempo que se toman para revisar y contestar. Bendiciones para todos.

[Longi]

Lo siento, pero este es el foro de base, el de calc creo que sería más apropiado.
De todos modos, supongo que se podría hacer lo mismo en base, pero necesitamos que se describa el problema con el mayor detalle posible.
Yo, mirando el código, no sé de qué se me está hablando, ya que es código de Excel (¿no?).
Mejor que primero expliques el problema, y después veremos si sabemos hacer algo.

Un saludo!