Este tutorial de VBA cubre las diferentes formas de trabajar con hipervínculos en VBA.
Hipervínculos VBA
Con VBA, puede agregar hipervínculos, eliminar hipervínculos, crear correos electrónicos usando hipervínculos y abrir archivos usando hipervínculos en VBA.
Agregar un hipervínculo con VBA
El método Hyperlinks.Add agrega un hipervínculo a una celda usando VBA.
El siguiente código agregará un hipervínculo a la celda A1:
| 123 | Sub AddHyperlinkToCell ()ActiveSheet.Hyperlinks.Add Range ("A1"), Dirección: = "https://www.automateexcel.com/excel/"End Sub |
El resultado es:
Agregar texto para mostrar con VBA
Puede agregar texto ordenado y fácil de usar para mostrar en su hipervínculo con VBA. Si utilizó la funcionalidad de la hoja de trabajo, insertaría un hipervínculo y luego agregaría un texto para mostrar en el cuadro de diálogo proporcionado.
El siguiente código demuestra cómo agregar texto para mostrar en su hipervínculo usando VBA:
| 123 | Sub TextToDisplayForHyperlink ()ActiveSheet.Hyperlinks.Add Range ("A1"), Dirección: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Automatizar Excel"End Sub |
El resultado es:
Agregar una información en pantalla con VBA
Puede agregar una información en pantalla a su hipervínculo que el espectador verá cuando coloque el cursor sobre el vínculo.
El siguiente código muestra cómo agregar una información en pantalla a su hipervínculo usando VBA:
| 123 | Sub ScreenTipForHyperlink ()ActiveSheet.Hyperlinks.Add Range ("A1"), Dirección: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Automatizar Excel", Información en pantalla: = "Este es el enlace para Automatizar Excel"End Sub |
El resultado es:
Eliminar un hipervínculo con VBA
El método Hyperlinks.Delete se puede utilizar para eliminar un hipervínculo de una celda.
El siguiente código eliminará el hipervínculo de la celda A1 y el texto de la celda.
Tenga en cuenta que simplemente eliminar el hipervínculo no elimina el texto en sí, por eso, si desea eliminar el texto, también debe usar el método Clear.
| 1234 | Sub DeleteHyperlinkinCell ()Rango ("A1"). Hipervínculos.EliminarRango ("A1"). BorrarEnd Sub |
Eliminar todos los hipervínculos en una hoja de trabajo
También puede eliminar todos los hipervínculos en su hoja de trabajo utilizando el método Hyperlinks.Delete.
El siguiente código eliminará todos los hipervínculos en la primera hoja de trabajo de su libro de trabajo:
| 123 | Sub RemoveAllHyperlinksInASheet ()ThisWorkbook.Sheets (1) .Hyperlinks.DeleteEnd Sub |
Seguir un hipervínculo de un sitio web mediante VBA
El siguiente código le permite abrir una dirección de sitio web, en una nueva ventana en su navegador usando el método FollowHyperlink en su libro de trabajo:
| 123 | Sub FollowHyperlinkForWebsite ()ActiveWorkbook.FollowHyperlink Dirección: = "https://www.automateexcel.com/excel", NewWindow: = TrueEnd Sub |
Siga un hipervínculo a una carpeta en su unidad
El siguiente código abrirá una carpeta llamada ExcelFiles en el escritorio usando el método FollowHyperlink:
| 123 | Sub FollowHyperlinkForFolderOnDrive ()ActiveWorkbook.FollowHyperlink Dirección: = "C: \ Desktop \ ExcelFiles"End Sub |
Siga un hipervínculo a un archivo en su unidad
El siguiente código abrirá un archivo de Excel llamado WorkbookOne en la carpeta llamada ExcelFiles en el escritorio usando el método FollowHyperlink:
| 123 | Sub FollowHyperlinkForFile ()ActiveWorkbook.FollowHyperlink Dirección: = "C: \ Desktop \ ExcelFiles \ WorkbookOne.xlsx", NewWindow: = TrueEnd Sub |
Ir a una celda en otra hoja del mismo libro de trabajo
Puede agregar un hipervínculo a una celda en una hoja que lo lleva a otra hoja, en el mismo libro de trabajo con VBA. Supongamos que está en Sheet1, celda A1 de su libro de trabajo y desea insertar un hipervínculo a Sheet2, celda B2 del mismo libro de trabajo, puede usar la propiedad SubAddress para hacer esto.
El siguiente código demuestra cómo hacer esto:
| 123 | Sub GoToAnotherCellInAnotherSheetInTheSameWorkbook ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "", SubAddress: = "'" & Sheet2.Name & "'! B2", TextToDisplay: = "Haga clic aquí para ir a Sheet2, celda B2 del mismo libro de trabajo "End Sub |
Mostrar todos los hipervínculos en una hoja de trabajo
Puede acceder a la colección de hipervínculos y mostrar todos los hipervínculos en su hoja de trabajo en el Ventana intermedia en el Editor de VBA. Primero debes presionar CTRL + G en tu teclado o ve a Ver> Ventana intermedia en el Editor de VBE, para ver la ventana intermedia.
El siguiente código muestra cómo ver los hipervínculos en su hoja de trabajo en la ventana intermedia:
| 1234567891011 | Sub ShowAllTheHyperlinksInTheWorksheet ()Dim ws como hoja de trabajoEstablecer ws = ThisWorkbook.Sheets (1)Para cada lnk en ws.HyperlinksDebug.Print lnk.AddressSiguiente lnkEnd Sub |
Los resultados se muestran en la ventana intermedia.
Mostrar todos los hipervínculos en un libro de trabajo
Puede acceder a la colección de hipervínculos para recorrer y mostrar todos los hipervínculos en su libro de trabajo en un cuadro de mensaje.
El siguiente código muestra cómo hacer esto y usa un bucle anidado para lograrlo:
| 1234567891011 | Sub ShowAllTheHyperlinksInTheWorkbook ()Dim ws como hoja de trabajoPara cada ws en ActiveWorkbook.Para cada lnk en ws.HyperlinksMsgBox lnk.AddressSiguiente lnkSiguiente wsEnd Sub |
Uso del método FollowHyperlink para crear correos electrónicos
También puede crear correos electrónicos utilizando el método FollowHyperlink.
El siguiente código le mostrará cómo crear correos electrónicos utilizando el método FollowHyperlink en VBA:
| 12345678 | Sub SendEmailUsingHyperlink ()Dim msgLink como cadenamsgLink = "mailto:" & "[email protected]" & "?" & "subject =" & "Hola" & "&" & "body =" & "¿Cómo estás?"ActiveWorkbook.FollowHyperlink (msgLink)End Sub |
El resultado es:
Agregar un hipervínculo a una autoforma en Excel
Puede agregar un hipervínculo a una forma automática en Excel para que cuando el usuario haga clic en la forma, se lo lleve a la dirección de un sitio web.
El siguiente código crea un rectángulo redondeado, agrega el texto al rectángulo y agrega un hipervínculo al rectángulo:
| 12345678910111213 | Sub AddingAHyperlinkToAShape ()Atenuar myShape como formaEstablecer myDocument = Worksheets ("Hoja1")Establecer myShape = myDocument.Shapes.AddShape (msoShapeRoundedRectangle, 100, 100, 90, 30)Con myShape.TextFrame.Characters.Text = "Automatizar Excel"Terminar conActiveSheet.Hyperlinks.Add Anchor: = myShape, Dirección: = "https://www.automateexcel.com/excel"End Sub |
El resultado es:
Insertar la fórmula de hipervínculo en una celda usando VBA
Supongamos que tiene un título de publicación en la celda A4 y un enlace de publicación en la celda B4, como se muestra en la imagen a continuación.
Un recordatorio rápido de la sintaxis de la fórmula del hipervínculo de la hoja de trabajo es:
HIPERVÍNCULO (ubicación_vínculo, [nombre_ descriptivo])
link_location: este es el enlace al documento, archivo, lugar en el libro de trabajo o sitio en línea.
nombre amigable - (Opcional): El texto o valor numérico que se muestra en la celda.
En la celda C4, desea agregar el hipervínculo con un texto descriptivo para mostrar, ahora normalmente debe ingresar la fórmula = HIPERVÍNCULO (B4, A4) en C4 para obtener lo siguiente:
En su lugar, podría usar VBA para lograr el mismo resultado e insertar esta fórmula en la celda, en Sheet1 con el siguiente código:
| 123 | Sub InsertHyperlinkFormulaInCell ()ActiveWorkbook.Worksheets ("Hoja1"). Rango ("C4"). Fórmula = "= hipervínculo (B4, A4)"End Sub |
Agregar un hipervínculo a un botón en Access
VBA también le permite trabajar con hipervínculos en Access. Supongamos que tenemos un botón en un formulario y cuando el usuario hace clic en ese botón, queremos que lo dirijan a un sitio web. Una forma que puede utilizar para hacer esto es a través del método Application.FollowHyperlink.
Tenemos nuestro formulario de muestra con un botón llamado buttonOne que se muestra a continuación.
El código para este botón sería:
| 12345 | Botón Sub privado One_Click ()Application.FollowHyperlink ("https://www.automateexcel.com/excel/")End Sub |
Crear un hipervínculo a partir de una selección en Word
También puede trabajar con hipervínculos en Word VBA.
Supongamos que tenemos texto en Palabra que dice "Haga clic aquí para ir al sitio web de Automate Excel", que se selecciona como se muestra a continuación.
Para convertir este texto en un hipervínculo usando VBA, puede usar el siguiente código:
| 123 | Private Sub TurnASelectionIntoAHyperlink ()ActiveDocument.Hyperlinks.Add Anchor: = Selection.Range, Address: = "https://www.automateexcel.com/excel/", ScreenTip: = "Haga clic aquí por favor", Target: = NewWindowEnd Sub |
El resultado es:
