Como no! La macro almacenada en un modulo es como sigue:
Sub celdactiva()
arriba = ActiveCell.Top
izquierda = ActiveCell.Left
MsgBox "La celda activa:" & arriba & " (Top) y " & izquierda & " (Left)"
End Sub
*******
Al ejecutarla en una hoja me devuelve un aviso con informacion.
*Hagamos esto primero. Situate en Hoja1. Selecciona la columna A, todo y trata de ensancharlo, veras que automaticamente te aparece un cuadrito amarillo que te avisa dinamicamente el cambio en puntos con su respectivo equivalente en pixeles. De igual forma sucede lo mismo con el caso de las filas, especificamente se refiere al alto de las filas. En caso de las columnas, al ancho.
Por ejemplo, el libro que estoy ahora tiene el alto de filas como de 15 que es 20 pixeles. Mientras que la columna es de 10.71 el cual es 80 pixeles.
Trata manualmente que la columna A tenga exactamente 20 pixeles que en puntos seria 2.14. COn lo que hemos conseguido es que tanto el alto de las filas como el ancho de la columna A tenga la misma cantidad de pixeles, la cual es la unidad de la resolución en tu pantalla. Hemos creado cuadrados en toda la col A.
El cursor de Excel que se sitúe en B2 y ejecuta la macro. La macro te dirá que hay 15 tanto de Top como de Left.
El "Top" devuelve un valor que representa la distancia, en pixeles, desde el borde superior de la fila 1 hasta el borde superior del rango, en este caso de la celda activa. En el caso de "Left" devuelve un valor que representa la distancia, en pixeles, desde el borde izquierdo de la columna A hasta el borde izquierdo del rango, en este caso de la celda activa.
Ahora prueba en otra zona de la hoja de calculo, por ejemplo en la celda F3 y ejecuta de nuevo la macro.
Anónimo
