Hola a tod@s.

Al pasar el cursor por encima de una celda que contiene un vinculo, aparece un cuadro con toda la ruta de acceso.

A veces el cuadro (galleta) es muy grande y me molesta mucho.

¿Como puedo hacer para que el punteo salga solo y  sin ningún texxto?.

MUCHISIMAS GRACIAS A TODOS.

    Dim hoja As Worksheet
    Dim hp As Hyperlink
    Set hoja = ThisWorkbook.Sheets("NombreDeTuHoja") ' Reemplaza "NombreDeTuHoja" con el nombre de tu hoja de trabajo
    For Each hp In hoja.Hyperlinks
        hp.ScreenTip = ""
    Next hp
    Set hp = Nothing
    Set hoja = Nothing

 

Gracias JSDJSD por tu atención.

Te juro que lo he intentado.

He puesto el código en la hoja, en ThisBook, en módulo. Y nada NO LO HE CONSEGUIDO.

Perdona mi ignorancia.

¿No falta un encabezado y un end sub?

INSISTO, PERDONAME.

Saludos.

Sube tu archivo

Gracias por tu paciencia.

El libro original tiene 35,4 MG. Tiene casi 50 hojas. 35 por cada uno de los valores que cotizan en el IBEX35, y otras más de cálculos.

He arrancado una hoja del libro. Espero sirva. Se ve que poniendo el cursor sobre la celda que contiene un vínculo, aparece un cuadro con toda la ruta. P.E. BOLSA y/o INVERSIÖN.

Espero sirva.

Reitero, gracias por tu paciencia.

Un abrazo.

P.D.

Por fin he conseguido  que el fichero pese menos que los RIDICULOS 100 MB que permite la aplicación.

1) CARTERA - copia (2).xlsm

@Pedro Alonso

Es necesario que sea con VBA?

La opción de @JSDJSD es muy buena, toma en cuenta que va contra la hoja activa. Tal vez por ahí está tu problema de ejecución.

Si te interesas por algo que no sea VBA

 

Algo más estándar en la herramienta es cambiar esa opción en el vínculo creado:

Modifica el hipervínculo

 

 

 

El efecto que se observa en el gif del fondo de mi pantalla no te aparecerá  a tí.

1) CARTERA - copia (2).xlsm

Hola @JSDJSD

Gusto en coincidir contigo en otro tema. Muy buena propuesta por cierto, no sabía que se podía hacer eso con el VBA me llamo la atención desde que la compartiste.

?

Saludines

Hola a tod@s.

He colocado en la hoja  el código propuesto, y NADA. Sigue apareciendo la "galleta" con toda la ruta del vínculo

Private Sub CommandButton1_Click()
    Dim hoja As Worksheet
    Dim hp As Hyperlink
    Set hoja = ThisWorkbook.Sheets("RESUMEN") ' Reemplaza "NombreDeTuHoja" con el nombre de tu hoja de trabajo
    For Each hp In hoja.Hyperlinks
        hp.ScreenTip = ""
    Next hp
    Set hp = Nothing
    Set hoja = Nothing
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.Calculate
End Sub
 

MUCHÍSIMAS GRACIAS A TODOS.

Hola @Pedro Alonso

¿Podrías redactar paso a paso cómo lo estás haciendo por favor?

La propuesta mostrada debería servir. Tomando literal tu comentario, da a entender que no has agregado el botón que provocará que se desencadene el código. La sentencia por si sola no te hará nada, algo debe llamarla. Un objeto, un cambio, la hoja, etc. Pero eso lo decides tú.

Así como dejó en la imagen el maestro @JSDJSD primero se ven, aprieta el botón y luego no se ven. Incluso te mando el libro con el ejemplo desarrollado.

También está la edición manual, es decir; editar lo que mostrará el hipervínculo al colocar el cursor sobre él. Los pasos están un poco arriba de estos comentarios.

Saludines.