Classe Hyperlink (PowerPoint VBA)

A classe Hyperlink representa um hiperlink associado a uma forma que não seja um espaço reservado ou a texto.

O procedimento principal da classe Hyperlink é Delete

Set

Para usar uma variável de classe Hyperlink, ela primeiro precisa ser instanciada por exemplo

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Hyperlink: ActionSetting.Hyperlink, Hyperlinks.Item, CustomLayout.Hyperlinks, Master.Hyperlinks, Slide.Hyperlinks e SlideRange.Hyperlinks

Temas

Os procedimentos a seguir nesta aula foram agrupados e são descritos em uma página de tema separada

Display/Show with its procedures ShowAndReturn e TextToDisplay

Métodos

Este é o método principal da classe Hyperlink

Delete - Exclui o objeto Hyperlink especificado.

ActivePresentation.SlideMaster.Hyperlinks(1).Delete

Estes são os principais métodos da classe

CreateNewDocument - Cria uma nova apresentação da Web associada ao hiperlink especificado.

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

Propriedades

Address Retorna ou define o endereço de Internet URL do documento alvo. Leitura/gravação.

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

EmailSubject Retorna ou define a cadeia de caracteres de texto da linha de assunto do hiperlink. A linha de assunto é anexada ao endereço da Internet URL do hiperlink. Leitura/gravação.

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

Parent Retorna o objeto parente para o objeto especificado.

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

ScreenTip Retorna ou define o texto de Dica de tela de um hiperlink. Leitura/gravação.

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

SubAddress Retorna ou define o local dentro de um documento, como um indicador em um documento do Word, um intervalo em uma planilha do Microsoft Office Excel ou um slide em uma apresentação de slides do Microsoft PowerPoint associado ao hiperlink especificado. Leitura/gravação.

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

Type Representa o tipo de hiperlink. Somente leitura.

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

Hyperlinks.Count Retorna o número de objetos na coleção especificada. Somente leitura.

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

Hyperlinks.Parent Retorna o objeto parente para o objeto especificado.

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