vba - MS 功率点中的变量

Question

嗨，我正在创建一个 powerpoint 2013 演示文稿，我们将在其中使用许多幻灯片上的一些超链接。超链接指向外部站点。该服务器可能稍后会更改，然后我需要单独更改所有这些超链接，这很痛苦。

有没有一种方法可以在 power point 中定义一个变量（可能在 VBA 部分），然后使用这个变量（可能是基本网站地址）来构建幻灯片中的超链接。这样如果网站改变了，那么我只需要改变这个变量的值。这可能吗？如果可以，怎么做？

谢谢你的帮助 ！

Answer 1

没有办法将所需的链接地址保存为域代码，就像您可能在 Word 中所做的那样，但如果您不介意运行一些代码来进行修复，这将让您替换任何特定的带有任何其他文本的文本块。您提供这些位。在下面的示例中，我将 pptools 替换为 pptfaq，以将所有指向 http://www.pptools.com 的超链接转换为http://www.pptfaq.com

根据需要编辑前两行：

Const sOldHyperlink As String = "pptools"
Const sNewHyperlink As String = "pptfaq"

Sub ChangeHyperlinks()

    Dim oSl As Slide
    Dim oHl As Hyperlink

    For Each oSl In ActivePresentation.Slides
        For Each oHl In oSl.Hyperlinks
            oHl.Address = Replace(oHl.Address, sOldHyperlink, sNewHyperlink)
        Next
    Next

End Sub