Cambiar puntero del ratón en Excel con VBA

Hola, [email protected] a una nueva entrada de Excel. Hoy vamos a centrarnos en un tema que del que he recibido varias preguntas de la comunidad. Se trata de como cambiar el puntero del raton en Excel usando Visual Basic dentro del editor de Excel.

El proceso es muy sencillo, para empezar tenemos que irnos a la pestaña «Programador» -> «Visual Basic».

Primeramente comentar que, a modo de ejemplo, quiero cambiar el puntero del ratón cuando un usuario cambie el valor de cualquier celda, para eso tengo que suscribirme al evento «SheetChange» del libro de Excel asi que dentro del editor de Visual Basic tenemos que seleccionar «Workbook» en el desplegable central, y «SheetChange» en el desplegable de la derecha.

Bajo estas líneas el código que podéis añadir para realizar este cambio de cursor cuando cambie una celda:

Una vez hecho esto nos aparecerá el siguiente código:


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.Cursor = xlWait
End Sub
El código que añadamos entre SubWorkbook_SheetChange End Sub se ejecutará al cambiar el valor de una celda del libro. 

El vídeo tutorial

Tipos de puntero

  • xlWait: Es un puntero normalmente usado para indicar al usuario que una operación interna esta siendo realizada y que el procesador esta ocupado.
  • xlDefault: Es el puntero por defecto de Excel.
  • xlBeam: Puntero con forma de segmento vertical que normalmente aparece cuando estamos editando texto en la barra de fórmulas por ejemplo.
  • xlNorthwestArrow: Es el puntero con forma de flecha apuntando al noroeste tipico de Windows.

Como siempre espero que os haya sido de utilidad esta entrada.

Leave a reply:

Tu dirección de correo electrónico no será publicada.

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Site Footer

X

Suscribete al canal en YouTube

Con más de 90.000 suscriptores, encontrarás mas de 300 video tutoriales gratuitos sobre Excel, Informática, programación e Internet.

Suscribete