PPT使用VBA断开excle链接代码

HHfchyHqqq · 发表于 2024-8-6 00:52

本帖最后由 HHfchyHqqq 于 2024-8-6 12:17 编辑

求助大神，打开PPT是会有第一个弹窗
在更新链接后想要断开和excle的链接，想问问有没有VBA的代码呀

感谢，已解决

lss001 · 发表于 2024-8-6 09:27

本帖最后由 lss001 于 2024-8-6 12:53 编辑

Sub FileLinks()
For Each sld In ActivePresentation.Slides
For Each sh In sld.Shapes
      If sh.Type = msoLinkedOLEObject Then
            '设置为手动更新
            sh.LinkFormat.AutoUpdate = 1
      End If
Next
Next
' 保存更改
   ActivePresentation.Save
End Sub

HHfchyHqqq · 发表于 2024-8-6 10:49

lss001 发表于 2024-8-6 09:27
Sub FileLinks()
' 禁止更新链接
Application.AskToUpdateLinks = False

您好，提示错误哎

lss001 · 发表于 2024-8-6 13:00

HHfchyHqqq 发表于 2024-8-6 10:49
您好，提示错误哎

如果是在ppt中运行代码，见楼上更正

HHfchyHqqq · 发表于 2024-8-6 21:32

lss001 发表于 2024-8-6 09:27
Sub FileLinks()
For Each sld In ActivePresentation.Slides
For Each sh In sld.Shapes

感谢答复，已经解决啦，用BreakLink也能断开

		自动登录	找回密码
密码			免费注册

[已解决] PPT使用VBA断开excle链接代码