Ejecutar Macros con metodo abreviado

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.

Gracias Hector
Me imagino que el procedimiento asignar atajos debo
llamarlo dentro del procedimiento de evento
Workbook_Open, para que se active al abrir el libro de
trabajo.

Saludos,

Henry

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.


.