Ayuda para crear menú desplegable

Discute sobre las herramientas de la base de datos

Ayuda para crear menú desplegable

Notapor Spl0it » Sab Ene 13, 2018 4:12 pm

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   Expandir vistaContraer vista
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.
Apache OpenOffice 4.1.1 en Windows 7
Spl0it
 
Mensajes: 1
Registrado: Sab Ene 06, 2018 2:57 pm

Re: Ayuda para crear menú desplegable

Notapor Longi » Jue Ene 18, 2018 7:57 am

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!
Openoffice 4.1.5, en Windows 10
Openoffice 4.1.3, en Windows 7
Libreoffice 6.0, en Windows 10
Longi
 
Mensajes: 357
Registrado: Dom Ene 20, 2013 9:05 pm
Ubicación: Ourense, Galicia, España


Volver a Base

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 5 invitados