Ejecutar Macros con metodo abreviado

hola, Henry !

Mostrar la cita

... 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
Mostrar la cita

hola, Henry !

Mostrar la cita

... poder ejecutar dos macros mediante la combinacion

de teclas Shift+C y Shift+V (... variantes de Copiar y
Pegar).
Mostrar la cita

Mostrar la cita

... esto se hace usando ... MacroOptions ... cuando se

usa el generador de Macros [...]
Mostrar la cita

Mostrar la cita

... sin embargo, el codigo generado no contiene la

instruccion MacroOptions por ningun lado.
Mostrar la cita

Mostrar la cita

... hay otra forma de definir metodos abreviados para

las macros, sin el uso de esta instruccion?
Mostrar la cita

'dado' que el uso de 'combinaciones' de taclado como

Shift+xyz [que 'resultan' en sus mayusculas] son... 'de
uso comun' :(
Mostrar la cita

asignar 'atajos' a macros 'requiere' el uso de la tecla

Ctrl [para 'evitar malos entendidos' entre aplicacion y
usuario] ;)
Mostrar la cita

el metodo 'MacroOptions' requiere:
1.- ser 'ejecutado aparte' para asignar atajo/s a

la/s macro/s que se le indique/n.
Mostrar la cita

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...
Mostrar la cita

al presionar {Ctr}+letra se ejecutaran las

acciones 'normales' de la aplicacion 'pero'...
Mostrar la cita

al presionar {Ctrl}+{Mayusc}+letra... se ejecutara la

macro 'asignada' a esa letra ['mayuscula'
en 'MacroOptions'] ;)
Mostrar la cita

saludos,
hector.


.