Mediante código podemos insertar vínculos a las celdas de nuestra hoja de cálculo. También podemos abrir una carpeta de nuestro disco duro, un archivo cualquiera (pdf, excel, word, …) o incluso una página web.
Lo primero se realiza invocando a la hoja: ActiveSheet.
Lo segundo mediante ActiveWorkbook.
Muestro un ejemplo de código:
VB
Private Sub CommandButton1_Click()
'añadimos un link a una celda de nuestra hoja:
'ActiveSheet.Hyperlinks.Add Range("d10"), Address:="https://exceld10.com"
ActiveSheet.Hyperlinks.Add Cells(10, 4), Address:="https://exceld10.com"
'Para cambiar o poner el texto en la celda mediante código:
ActiveSheet.Hyperlinks.Add Range("d11"), Address:="https://exceld10.com", TextToDisplay:="Texto nuevo en celda"
'para mostrar un texto indicativo al usuario cuando pase el puntero del ratón
ActiveSheet.Hyperlinks.Add Range("d12"), Address:="https://exceld10.com", ScreenTip:="Info al pasar el puntero"
'para borrar el link de la celda d11:
ActiveSheet.Range("d11").Hyperlinks.Delete
'para borrar el link de toda la hoja:
'ActiveSheet.Hyperlinks.Delete
'para abrir una carpeta, archivo o web:
ActiveWorkbook.FollowHyperlink Address:="https://exceld10.com"
'ActiveWorkbook.FollowHyperlink Address:="C:\Users\Nombre\Documents"
'ActiveWorkbook.FollowHyperlink Address:="C:\Users\Nombre\Documents\File.pdf"
End Sub
Deja una respuesta