Question

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

有没有办法可以在功率点（可能在VBA部分）中定义变量，然后使用此变量（可以是基本网站地址）来构建幻灯片中的超链接。这样，如果网站发生变化，那么我只需要更改此变量的值。这可能吗？如果可以，怎么做？

感谢您的帮助！

Answer 1

没有办法保存所需的链接地址，例如，你可以在Word中执行的字段代码，但如果你不介意运行一些代码来进行修复，这将让你用任何其他文本替换任何特定的文本块。你提供这些位。在下面的示例中，我正在用pptfaq替换pptools，将所有超链接转换为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

MS功率点的变量

1 个答案: