Acerca del botón de comando de Excel (VBA)
No debería estar en la lista,
En su lugar, deberías usar la barra de herramientas.
La barra de herramientas puede flotar en la ventana,
no cambia cuando cambia el papel,
incluso la tabla se puede eliminar.
¿Sub? My_Bar_Set()
¿Atenuado? ¿Mi barra? ¿Como? Barra de comandos
¿Atenuada? miBtm? ¿Como? CommandBarButton
Crea una nueva barra de herramientas "Bar1".
¿Configuración? ¿Mi barra? =?Barra de comandos. Agregar("bar1 ", msoBarFloating)
¿Configuración? miBtm? =?barras de comando("barra 1")controles agregar(Tipo:= msoControlButton).
Establece la barra de herramientas "Bar1".
¿Qué utilizar? Aplicar. Barras de comando("Barra1 "). Controlar(1)
. ¿En acción? =?"mi_menú"? My_menu es un sub, que es el programa que se ejecutará después de hacer clic en el botón.
. ¿título? =?" asd "
. ¿altura? =?12
. ¿ancho? =?51
. ¿visible? =?Real
. ¿Permitir? =?Real
¿Fin? Con
Establezca la posición de "Bar1" según la resolución del monitor.
¿Oscuro? h? ¿Como? Largo
¿Oscuro? v? ¿Como? ¿Largo
h? =?800?Mi monitor está configurado en 800*600. Puedes completarlo según tu determinación.
v? =?600
¿Qué usar? Aplicar. CommandBars("Barra1 ")
. ¿Arriba? =?v? /?2
. ¿izquierda? =?h? -?80
. ¿visible? =?Real
¿Fin? ¿Con
el final? Submarino
¿Submarino? MiMenú()
ActiveCell. ¿valor? =?1234?Este programa está configurado para ejecutarse automáticamente cuando se abre el libro. El programa original consiste en llamar a una ventana y luego realizar una operación de selección.
¿Fin? Submarino