gracias

11/04/2010 - 16:36 por Carlos A | Informe spam
A los que me ayudaron mil gracias, estoy enseñando excel a una persona
discapacitada que no puede usar el mouse y esto me ha obligado a replantear
todo..por esto arranco por moverme en la pantalla sin mouse...es complicado
pues no se tiene la costumbre, por eso agradesco mucho su ayuda...

Un abrazo a todos
 

Leer las respuestas

#1 Héctor Miguel
12/04/2010 - 00:39 | Informe spam
hola, Carlos !

... estoy ensenando excel a una persona discapacitada que no puede usar el mouse
y esto me ha obligado a replantear todo..por esto arranco por moverme en la pantalla sin mouse.
es complicado pues no se tiene la costumbre, por eso agradesco mucho su ayuda...



en tal caso, te sera de utilidad consultar la ayuda en linea {F1} y preguntar por los "atajos de teclado"
(encontraras un sin-fin de combinaciones de teclado para realizar otras tantas "tareas cotidianas)

por lo tocante a activar (por teclado) la caja de nombres (y tambien la barra de formulas)...
prueba copiando/pegando (o escribiendo) las siguientes instrucciones en un modulo de codigo estandar

nota: las dos ultimas macros (ActivarBarraDeFormulas y ActivarCajaDeNombres)
las puedes asignar a combinaciones de teclado +/- "convenientes" ?

saludos,
hector.

Private Declare Function Activar Lib "user32" Alias "SetFocus" ( _
ByVal hWnd As Long) As Long
Private Declare Function EsteElementoDe Lib "user32" Alias "FindWindowExA" ( _
ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal Elemento As String, Optional ByVal Titulo As String = "") As Long
Private Declare Function EstaVentana Lib "user32.dll" Alias "GetActiveWindow" () As Long

Sub ActivarBarraDeFormulas()
Activar _
EsteElementoDe( _
EstaVentana(), 0&, "excel<")
End Sub
Sub ActivarCajaDeNombres()
Activar _
EsteElementoDe( _
EsteElementoDe( _
EstaVentana(), 0&, "excel;"), 0&, "combobox")
End Sub

Preguntas similares