Ejecutar Macros con metodo abreviado

16/02/2004 - 15:44 por Henry Sanchez | Informe spam
Hola Grupo
Quisiera poder ejecutar dos macros mediante la combinacion
de teclas Shift+C y Shift+V respectivamente.(Son dos
variantes de Copiar y Pegar).

Entiendo que esto se hace usando la instruccion
MacroOptions.
Sin embargo veo que cuando se usa el generador de Macros
que viene incorporado con Excel, se puede definir las
teclas de metodo abreviado en el cuadro de dialogo, y sin
embargo, el codigo generado no contiene la instruccion
MacroOptions por ningun lado.
Sera que hay otra forma de definir metodos abreviados para
las macros, sin el uso de esta instruccion?

Saludos,

Henry
 

Leer las respuestas

#1 Héctor Miguel
16/02/2004 - 18:10 | Informe spam
hola, Henry !

... poder ejecutar dos macros mediante la combinacion de teclas Shift+C y Shift+V (... variantes de Copiar y Pegar).
... esto se hace usando ... MacroOptions ... cuando se usa el generador de Macros [...]
... sin embargo, el codigo generado no contiene la instruccion MacroOptions por ningun lado.
... hay otra forma de definir metodos abreviados para las macros, sin el uso de esta instruccion?



'dado' que el uso de 'combinaciones' de taclado como Shift+xyz [que 'resultan' en sus mayusculas] son... 'de uso comun' :(
asignar 'atajos' a macros 'requiere' el uso de la tecla Ctrl [para 'evitar malos entendidos' entre aplicacion y usuario] ;)
el metodo 'MacroOptions' requiere:
1.- ser 'ejecutado aparte' para asignar atajo/s a la/s macro/s que se le indique/n.
2.- UNA SOLA TECLA como asignacion del 'atajo'
_________ [un ejemplo] ________
Sub Asignar_Atajos()
With Application
.MacroOptions Macro:="Mi_Shift_C", ShortcutKey:="C"
.MacroOptions Macro:="Mi_Shift_V", ShortcutKey:="V"
End With
End Sub
Sub Mi_Shift_C()
MsgBox "Alternativa de {Ctrl}+C"
End Sub
Sub Mi_Shift_V()
MsgBox "Alternativa de {Ctrl}+V"
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
notas: si observas, las teclas 'asignadas' son =>letras mayusculas<=, con lo cual...
al presionar {Ctr}+letra se ejecutaran las acciones 'normales' de la aplicacion 'pero'...
al presionar {Ctrl}+{Mayusc}+letra... se ejecutara la macro 'asignada' a esa letra ['mayuscula' en 'MacroOptions'] ;)

saludos,
hector.

Preguntas similares