【Microsoft 365可用】PPT一键取消所有超链接

删除或禁用超链接 - Microsoft 支持从页面中删除一个或多个超链接，或在键入时关闭自动超链接创建。https://support.microsoft.com/zh-cn/office/%E5%88%A0%E9%99%A4%E6%88%96%E7%A6%81%E7%94%A8%E8%B6%85%E9%93%BE%E6%8E%A5-027b4e8c-38f8-432c-b57f-6c8b67ebe3b0 微软官方给出的方法并不适用于PowerPoint，而PowerPoint中的宏也没有Hyperlinks这个属性，经实际验证，使用下面的宏指令可以一键移除幻灯片中全部的超链接。

'最简单有效的版本
Sub RemoveHyperlinksEasy()Dim sld As SlideDim shp As ShapeDim count As Integercount = 0For Each sld In ActivePresentation.SlidesFor Each shp In sld.Shapes'删除形状上的超链接On Error Resume NextIf shp.ActionSettings(ppMouseClick).Hyperlink.Address <> "" Thenshp.ActionSettings(ppMouseClick).Hyperlink.Address = ""count = count + 1End IfOn Error GoTo 0'删除文本中的超链接格式If shp.HasTextFrame ThenIf shp.TextFrame.HasText ThenOn Error Resume Nextshp.TextFrame.TextRange.ActionSettings(ppMouseClick).Action = ppActionNoneshp.TextFrame.TextRange.ActionSettings(ppMouseClick).Hyperlink.Address = ""count = count + 1On Error GoTo 0End IfEnd IfNext shpNext sldMsgBox "处理完成！删除了 " & count & " 个超链接", vbInformationEnd Sub

如何使用这个宏：

1. 打开VBA编辑器

• 在PowerPoint中按 Alt + F11
• 或者：文件 → 选项 → 自定义功能区 → 勾选"开发工具" → 开发工具 → Visual Basic

2. 插入宏代码

• 在VBA编辑器中，右键点击左侧的项目
• 选择 插入 → 模块
• 将上面的代码复制粘贴到模块中

3. 运行宏

• 按 F5 运行宏
• 或者：在PowerPoint中，开发工具 → 宏 → 运行