metodos de teclado abreviado

27/01/2006 - 13:37 por martin | Informe spam
deseo conocer metodos de teclado abreviado, por ejemplo centrar, datos en una
celda

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
30/01/2006 - 06:59 | Informe spam
hola, martin !

deseo conocer metodos de teclado abreviado, por ejemplo centrar, datos en una celda



algunas 'acciones' de los comandos de excel... NO tienen 'atajos de teclado' [como la alineacion de celdas] :-(
[sin embargo]... como ya te han comentado en tu mensaje 'siguiente'...
-> puedes personalizar atajos [o combinaciones de teclado] para 'ejecutar' las acciones de dichos comandos [p.e.]
en un modulo de codigo 'normal' ==Sub Alinear_Izquierda()
Application.CommandBars.FindControl(Id:0).Execute
End Sub
Sub Alinear_Derecha()
Application.CommandBars.FindControl(Id:1).Execute
End Sub
Sub Alinear_Centrado()
Application.CommandBars.FindControl(Id:2).Execute
End Sub
Sub Centrar_Combinar()
Application.CommandBars.FindControl(Id:@2).Execute
End Sub

los procedimientos anteriores puedes 'asignarlos' a combinaciones de teclado
-> desde las opciones de la macro que aparecen en el dialogo de {Alt}+{F8} [o herramientas / macro / macros...]
como...
alinear a la izquierda -> I una 'i' MAYUSCULA
alinear a la derecha -> D una 'd' MAYUSCULA
alinear al centro -> C una 'c' MAYUSCULA
centrar y combinar -> B una 'b' MAYUSCULA

nota: al asignar letras 'mayusculas' estaras 'obligado' a pulsar 'simultaneamente' las teclas {ctrl}+{mayus}+<LETRA>
[solo para 'evitar conflictos' con los atajos 'normales' como ctrl+i [o edicion / ir a...] etc. etc. etc.

o podrias usar el metodo 'OnKey' de la aplicacion en el evento '_open' de un libro [p.e. el personal.xls] etc. etc. etc.

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
Respuesta Responder a este mensaje
#2 Héctor Miguel
30/01/2006 - 07:07 | Informe spam
hola [de nuevo]. martin !

nota [adicional] :))

dado que los procedimientos 'sugeridos'... TAMBIEN 'trabajan' cuando la seleccion son 'otros' objetos...
[como tener seleccionados cuadros de texto incrustados en la hoja]...
todo 'intento' de -> combinar y centrar [fuera de objetos 'rango'] causaria una falla en el codigo :-((
modifica el procedimiento a...
Sub Centrar_Combinar()
If TypeName(Selection) = "Range" Then _
Application.CommandBars.FindControl(Id:@2).Execute
End Sub

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