** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Posición Command Bar
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoPosición Command Bar

 Responder Responder
Autor
Mensaje
gabores Ver desplegable
Habitual
Habitual
Avatar

Unido: 06/Agosto/2007
Localización: Bolivia
Estado: Sin conexión
Puntos: 123
Enlace directo a este mensaje Tema: Posición Command Bar
    Enviado: 25/Septiembre/2021 a las 23:31
Hola a todos.
He pasado muchas horas buscando en la WEB una solución para un inconveniente y no solo no he dado en la tecla sino que he visto que muchas personas han buscado lo mismo y ninguno ha tenido una respuesta.. al menos en los sitios a los que he llegado y por eso recurro a uds a ver si alguien se ha planteado esta situación y lo ha podido sacar adelante.

He creado algunos commandbars en access con el siguiente metodo:

Public Sub crear_menu_0()
Set miMenu0 = CommandBars.Add(Name:="menu_0", Position:=msoBarPopup, Temporary:=True)
Set miItem0 = miMenu0.Controls.Add(Type:=msoControlButton)
With miItem0
.Caption = "Ver informe"
.OnAction = "informe"
.FaceId = 1745
End With
End If

y luego los abro de la siguiente manera

Application.CommandBars("menu_0").ShowPopup

pero el inconveniente es que ya sea aplicándolo al menú contextual del form o click en un botón, el menú siempre se abre en la ubicación del puntero del mouse y realmente quisiera que se abriera en un lugar determinado del formulario.
Alguien podría confirmarme si esto es posible.
Desde ya muchas gracias!


Arriba
jilo Ver desplegable
Colaborador
Colaborador


Unido: 19/Diciembre/2004
Localización: TAFALLA
Estado: Sin conexión
Puntos: 959
Enlace directo a este mensaje Enviado: 26/Septiembre/2021 a las 10:47
Pasate por aqui :   https://docs.microsoft.com/en-us/office/vba/api/office.commandbar.showpopup
Espero te sirva !!!!!!
Iñaki
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 6479
Enlace directo a este mensaje Enviado: 26/Septiembre/2021 a las 11:29
Hola!

Creo que deberías poner las coordenadas x, y en esta línea:

Application.CommandBars("menu_0").ShowPopup [x], [y]

ó así:

Application.CommandBars("menu_0").ShowPopup x:= valor, y:= valor


Un Saludo.
Arriba
gabores Ver desplegable
Habitual
Habitual
Avatar

Unido: 06/Agosto/2007
Localización: Bolivia
Estado: Sin conexión
Puntos: 123
Enlace directo a este mensaje Enviado: 26/Septiembre/2021 a las 22:43
Muchas gracias Jilo y Mounir

Les cuento que ambas respuestas fueron de mucha ayuda.
Ateriormente había intentado con la ayuda de DOCS de Microsoft pero en la bibliografía las coordenadas aparecen entre paréntesis (x,y) y yo los respetaba...  pero eso me daba un mensaje de error por lo que desistí de esa opción y pedí ayuda.

Con la respuesta de Mounir donde las coordenadas se mostraban sin paréntesis volví a intentarlo omitiéndolos y allí estaba la solución.

Muchas gracias!!! a ambos por su tiempo.

este hilo puede cerrarse.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable