Como defino URLs como hiperlinks no Powerpoint?

Question

Eu copiei algum texto em um slide que inclui URLs, assim:

• Algum texto aqui link

• mais texto link

No entanto, as URLs são apenas texto sem hiperlinks. Existe uma maneira mais rápida de defini-los como hiperlinks sem copiar o URL, indo para o Hyperlink e definindo o URL lá? Talvez algum tipo de comando que irá transformar todos os URLs da apresentação em hiperlinks?

    

Answer 1

@sigil, aqui está um pequeno exemplo de código para iniciantes:

Dim oRng As TextRange

' as a test; you'll have to parse the hyperlinks and get a refernce
' to each as a text range; this just gets a known range from
' an existing string:
Set oRng = ActiveWindow.Selection.TextRange.Characters(13, 18)

' Once you've found a range that looks like a hyperlink, this
' will assign an action setting and a hyperlink address to it:
With oRng
    .ActionSettings(1).Action = ppActionHyperlink
    .ActionSettings(1).Hyperlink.Address = oRng.Text
End With