Как установить URL-адреса как гиперссылки в Powerpoint?

Question

Я скопировал некоторый текст в слайд, который включает в себя URL-адреса, например так:

• Некоторый текст здесь https://myaddress.net

• больше текста http://asdf.ghjk

Тем не менее, URL-адреса просто текст без гиперссылок. Есть ли более быстрый способ установить их как гиперссылки без копирования URL-адреса, перехода в гиперссылку и установки там URL-адреса? Может быть, какая-то команда, которая превратит все URL в презентации в гиперссылки?

Answer 1

@sigil, вот пример кода для начинающих:

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