Clase Hyperlink (PowerPoint VBA)

La clase Hyperlink representa un hipervínculo asociado a un texto o forma distintos de un marcador de posición.

El principal procedimiento de la clase Hyperlink es Delete

Set

Para usar una variable de clase Hyperlink, primero debe ser instanciado, por ejemplo

Dim hyp as Hyperlink
Set hyp = Application.Selection.Hyperlinks(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase Hyperlink : ActionSetting.Hyperlink, Hyperlinks.Item, CustomLayout.Hyperlinks, Master.Hyperlinks, Slide.Hyperlinks y SlideRange.Hyperlinks

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Display/Show with its procedures ShowAndReturn y TextToDisplay

Métodos

Este es el método principal de la clase Hyperlink

Delete - Elimina el objeto HYPERLINK especificado.

ActivePresentation.SlideMaster.Hyperlinks(1).Delete

Otros Métodos

CreateNewDocument - Crea una presentación Web nueva asociada al hipervínculo especificado.

Dim strFileName As String: strFileName = 
ActiveWindow.Selection.SlideRange(1).Hyperlinks(1).CreateNewDocument FileName:=strFileName, EditNow:=msoTrue, Overwrite:=msoTrue

Propiedades

Address Devuelve o establece la dirección de Internet (URL) del documento de destino. Lectura y escritura.

ActivePresentation.Slides(1).Hyperlinks(1).Address = "https://www.codevba.com/"

EmailSubject Devuelve o establece la cadena de texto de la línea de asunto del hipervínculo. La línea de asunto se anexa a la dirección de Internet (URL) del hipervínculo. Lectura y escritura.

ActivePresentation.Slides(1).Hyperlinks(1).EmailSubject =

Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.Selection.SlideRange(1).Hyperlinks(1).Parent

ScreenTip Devuelve o establece el texto de la información en pantalla de un hipervínculo. Lectura y escritura.

ActivePresentation.Slides(1).Hyperlinks(1).ScreenTip = "Go to the Code VBA home page"

SubAddress Devuelve o establece la ubicación en el documento (como un marcador en un documento de Word, un intervalo en una hoja de cálculo de Microsoft Office Excel o una diapositiva en una presentación de Microsoft PowerPoint) que está asociado al hipervínculo especificado. Lectura y escritura.

ActivePresentation.Slides(1).Hyperlinks(1).SubAddress =  "last quarter"

Type Representa el tipo de hipervínculo. Solo lectura.

Dim mhtType As Office.MsoHyperlinkType
mhtType = ActivePresentation.SlideMaster.Hyperlinks(1).Type

Hyperlinks.Count Devuelve el número de objetos de la colección especificada. Solo lectura.

Dim lngCount As Long
lngCount = ActiveWindow.Selection.SlideRange(1).Hyperlinks.Count

Hyperlinks.Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.Selection.SlideRange(1).Hyperlinks.Parent