Objeto Hyperlinks (PowerPoint)

Uma coleção de todos os objetos Hyperlink em um slide ou slide mestre.

Exemplo

Use a propriedade Hyperlinks para retornar a coleção Hyperlinks. O exemplo a seguir atualiza todos os hiperlinks no slide um da apresentação ativa que têm o endereço especificado.

For Each hl In ActivePresentation.Slides(1).Hyperlinks

    If hl.Address = "c:\current work\sales.ppt" Then

        hl.Address = "c:\new\newsales.ppt"

    End If

Next

Use a propriedade Hyperlink para criar um hiperlink e adicioná-lo à coleção Hyperlinks. O exemplo a seguir define um hiperlink que será seguido quando o usuário clica na forma três no slide um da apresentação ativa durante uma apresentação de slides e adiciona um novo hiperlink à coleção. Observe que, se a forma três já tiver um hiperlink de cliques do mouse definido, o exemplo a seguir excluirá esse hiperlink da coleção quando ele adiciona uma nova, portanto, o número de itens na coleção Hyperlinks não alterará.

With ActivePresentation.Slides(1).Shapes(3) _
        .ActionSettings(ppMouseClick)

    .Action = ppActionHyperlink
    .Hyperlink.Address = "https://www.microsoft.com"

End With

Confira também

Referência de modelo de objeto do PowerPoint

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.