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

Preguntas similare

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.
Respuesta Responder a este mensaje
#2 Henry Sanchez
17/02/2004 - 16:41 | Informe spam
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.


.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida