【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这个属性,经实际验证,使用下面的宏指令可以一键移除幻灯片中全部的超链接。

vbscript 复制代码
'最简单有效的版本
Sub RemoveHyperlinksEasy()
    
    Dim sld As Slide
    Dim shp As Shape
    Dim count As Integer
    
    count = 0
    
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            
            '删除形状上的超链接
            On Error Resume Next
            If shp.ActionSettings(ppMouseClick).Hyperlink.Address <> "" Then
                shp.ActionSettings(ppMouseClick).Hyperlink.Address = ""
                count = count + 1
            End If
            On Error GoTo 0
            
            '删除文本中的超链接格式
            If shp.HasTextFrame Then
                If shp.TextFrame.HasText Then
                    On Error Resume Next
                    shp.TextFrame.TextRange.ActionSettings(ppMouseClick).Action = ppActionNone
                    shp.TextFrame.TextRange.ActionSettings(ppMouseClick).Hyperlink.Address = ""
                    count = count + 1
                    On Error GoTo 0
                End If
            End If
            
        Next shp
    Next sld
    
    MsgBox "处理完成!删除了 " & count & " 个超链接", vbInformation
    
End Sub

如何使用这个宏:

1. 打开VBA编辑器

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

2. 插入宏代码

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

3. 运行宏

  • F5 运行宏
  • 或者:在PowerPoint中,开发工具 → 宏 → 运行
相关推荐
爱吃香蕉的阿豪5 小时前
SignalR 全解析:核心原理、适用场景与 Vue + .NET Core 实战
vue.js·microsoft·c#·.netcore·signalr
Little-Hu12 小时前
QML视图组件:ListView、GridView、TableView、PathView
数据库·microsoft·qml
Azure DevOps14 小时前
在Azure DevOps的工作项中使用markdown
运维·microsoft·flask·azure·devops
中游鱼19 小时前
如何序列化和反序列化动态 XmlElement ?
windows·microsoft·c#
Leinwin2 天前
微软Fabric重塑数据管理:Forrester报告揭示高ROI
运维·microsoft·fabric
正宗咸豆花2 天前
在 Azure 中配置 SMS 与 OTP
microsoft·flask·azure
tanak2 天前
2025年7月23日 AI 今日头条
人工智能·microsoft
火山引擎开发者社区3 天前
火山引擎 MCP 安全架构与实践
microsoft·安全架构·火山引擎
Ashmcracker4 天前
Azure DevOps 使用服务主体配置自托管代理 (Self-hosted Agent) 配置指南
microsoft·微软·云计算·azure·devops
程序员阿明4 天前
spring boot 集成netty,及其一些基本概念
java·spring boot·microsoft