【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 小时前
自动化文件管理:分类、重命名和备份
python·microsoft·分类·自动化·备份·重命名·自动化文件分类
会飞的小菠菜7 小时前
怎么将很多ppt批量转换成pptx?图文操作指南
powerpoint·ppt·批量·格式转换·pptx
FreeBuf_16 小时前
Microsoft 365 Copilot 提示注入漏洞可导致攻击者窃取敏感数据
microsoft·copilot
专注VB编程开发20年16 小时前
JSA变成类似vba环境给第三方软件集成IDE功能,脚本功能
ide·microsoft·node.js·vba·wps·vb6·jsa
微软技术栈16 小时前
Microsoft AI Genius | 用智能 Microsoft Copilot 副驾驶® 构建高韧性 DevOps 流程
人工智能·microsoft·copilot
宝桥南山16 小时前
.NET - .NET Aspire的Command-Line和GitHub Copilot
microsoft·微软·c#·asp.net·.net·.netcore
张人玉18 小时前
WPF 控件速查 PDF 笔记(可直接落地版)
笔记·microsoft·wpf
开开心心就好20 小时前
Word转PDF工具,免费生成图片型文档
前端·网络·笔记·pdf·word·powerpoint·excel
workflower1 天前
微软PM的来历
java·开发语言·算法·microsoft·django·结对编程
MarkHD2 天前
Dify从入门到精通 第32天 合运用工作流、知识库与Function Calling的完整实践
microsoft