如何在Powerpoint中将URL设置为超链接？

我将一些文本复制到包含URL的幻灯片中，如下所示：

这里有一些文字https://myaddress.net
更多文字http：//asdf.ghjk

但是，URL只是没有超链接的纯文本。有没有更快的方法将它们设置为超链接而不复制URL，进入超链接并在那里设置URL？也许某种命令会将演示文稿中的所有URL变成超链接？

microsoft-powerpoint

— 印记
source

你正在使用什么版本的PowerPoint？您应该可以使用键盘快捷键“ctrl + k”来插入超链接

— Mike Diglio 2015年

不，除了迈克的快捷方式（适用于所有Windows版本的PowerPoint）或适用于Mac版本的Command / Cloverleaf / Splat + K. 可能会编写一个VBA例程来为您进行转换; 如果你对VBA有一定的技巧，你可能想尝试一下; 如果遇到问题，请访问StackOverflow; 有专门针对PPT / VBA的部分。

— Steve Rindsberg 2015年

@SteveRindsberg，我对VBA很好，所以如果必须的话，我会走那条路，好像制作一个能够从当前选择的任何文本中建立链接的功能，甚至是那样的东西都不会那么困难只需使用正则表达式转换演示文稿中的所有URL。

— sigil

@sigil我很好奇......文本是如何首先进入PPT的，你有哪个版本的PPT？我问，因为在这里（PPT 2010），当我输入看起来像PPT的URL的文本时，PPT会自动将其转换为超链接。将上面的URL复制/粘贴到文本框中时会发生同样的情况。（稍后）我看到我可以在文本框中输入非url文本，然后将其编辑为URL，瞧，没有即时超链接。所以也许就是这样。

— Steve Rindsberg 2015年

@SteveRindsberg，我粘贴了一些包含URL到PPT的参考书目条目，其中URL确实被转换为超链接。但是我需要按作者的形式对这些条目进行按字母顺序排列，因此我编写了一个脚本，将它们全部放入Excel中，按字母顺序排列它们，然后创建新的PPT幻灯片并将它们作为TextRanges添加。以编程方式添加它们并不会自动将它们转换为超链接。

— sigil

@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

— Steve Rindsberg
source