Gerald observa que cuando se mueve el mouse sobre una imagen en una hoja de trabajo, el puntero del mouse es una cruz. Quiere saber cómo puede determinar, usando VBA, las coordenadas de la cruz cuando se hace clic con el mouse.

Excel no le permite (incluso con VBA) obtener las coordenadas del puntero del mouse en un gráfico insertado como una imagen normal en la hoja de trabajo. Si inserta la imagen usando un objeto Imagen en la caja de herramientas de Control, tiene bastante más latitud. De hecho, puede usar el controlador de eventos MouseDown para determinar las coordenadas, como se muestra aquí:

Private Sub Image1_MouseDown(ByVal Button As Integer, _   ByVal Shift As Integer, ByVal X As Single, _   ByVal Y As Single)

MsgBox X & ", " & Y End Sub

Este código asume que la imagen se llama Image1. Se podría usar un código similar para mostrar las coordenadas del cursor en tiempo real en la barra de estado:

Private Sub Image1_MouseMove(ByVal Button As Integer, _   ByVal Shift As Integer, ByVal X As Single, _   ByVal Y As Single)

Application.StatusBar = Round(X, 0) & "," & Round(Y, 0)

End Sub

Cualquiera (o ambos) de estos controladores de eventos están obviamente asociados con Image1, por lo que deben agregarse a la ventana de código para ese objeto.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (3421) se aplica a Microsoft Excel 97, 2000, 2002 y 2003.