martes, 13 de septiembre de 2016

VBA: Añadir Comentario a una Autoforma

Continuando con la temática del post anterior, expondré una alternativa a la forma de añadir un Comentario/Mensaje a una autoforma.

Hoy usaremos la herramienta de Hipervínculo.

Tenemos una autoforma 'Rectángulo redondeado 1' sobre la que queremos visualizar un comentario o mensaje personalizado al pasar el cursor por encima:

VBA: Añadir Comentario a una Autoforma


El primer paso es asociar un hipervínculo al objeto, para lo cual seleccionamos (clic derecho) la autoforma y luego 'Hipervínculo':

VBA: Añadir Comentario a una Autoforma


Dentro de la Ventana de Insertar Hipervínculo presionamos el botón de Info. en Pantalla..., desde donde escribiremos el comentario o mensaje que deseemos.

VBA: Añadir Comentario a una Autoforma


Terminamos de configurar el Hipervínculo, vinculándolo a Un lugar de este documento > con referencia a una celda escondida o lejana... en mi ejemplo indico celda C4 por estar debajo de la autoforma.

VBA: Añadir Comentario a una Autoforma


Este último aspecto es clave, ya que para ejecutar nuestra macro, ahora deberemos asociar en la ventana de código de la hoja de trabajo, un evento de _SelectionChange; de tal forma que al presionar el botón/autoforma el hipervínculo hará un doble trabajo:
1-muestra el comentario
2-lleva la celda activa a la celda indicada (en el ejemplo C4).
3-al crear el evento _SelectionChange, asociándolo a dicha celda se lanzará nuestra macro.


Así pues, tenemos el siguiente código principal, insertado en un módulo estándar (Módulo1) de nuestro proyecto de Vb:

Sub MacroPrincipal()
'desarrollo de la macro principal
'a ejecutar la presionar la autoforma
MsgBox "Ejcutada la macro"
End Sub



Por otra parte, en la ventana de código de la hoja donde se encuentre la celda indicada (Celda C4) añadimos:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'cuando la celda seleccionada sea C4
'entonces lanzamos la MacroPrincipal
If Target.Address = "$C$4" Then Call Módulo1.MacroPrincipal
End Sub



Listo.
Podemos comprobar el efecto.. al pasar el cursor por encima de la autoforma veremos el comentario, tal como deseábamos.
Por otra parte tenemos la funcionalidad de 'botón', y al presionarlo el hipervínculo nos lleva a la celda C4, que controlamos conel evento Worksheet_SelectionChang.

No hay comentarios:

Publicar un comentario en la entrada