分享一个ppt链接对象路径批量更改的方法

qtime

thanks~~~~

明-你的背包

咨询下各位，打开后点击更新链接后，有些图表数据无法更新，需要重新打开数据源手动更新（发现这个问题后检查 文件-信息-编辑指向文件链接下面的自动更新钩 莫名取消了。 如果直接检查 自动更新的钩的话，是没有问题的。只有发现了转过去才是取消的。


请问有没有批量手动强制更新链接信息的办法？

tgyd123

下来试哈。。。。。。。。。。。。。

2393751066

感谢分享，真的很有帮助

xuyamin

太棒了，谢谢楼主

miiro

太感谢了，找了好久，楼主帮到大忙了！！

xyearsago

感谢受教叻

ning84

最简单的遍历Slide的方法。

1. Sub tt()
   
2.    Dim Pres As Presentation, Sld As Slide
   
3.        Set Pres = Application.ActivePresentation
   
4.        For Each Sld In Pres.Slides
   
5.             Debug.Print Sld.Name
   
6.        Next Sld
   
7. End Sub
   
8. 
   

复制代码

ning84

1. Sub lll()
   
2.     Dim Pres As Presentation
   
3.         Set Pres = Application.ActivePresentation
   
4.         Debug.Print Pres.Path
   
5.         
   
6.     Dim Sld As Slide, Shp As Shape
   
7.         Set Shp = Pres.Slides(1).Shapes(1)
   
8.         With Shp.ActionSettings(ppMouseClick)
   
9.              .Action = ppActionHyperlink
   
10.              .Hyperlink.Address = "D:\JPGManage\2023年\2023年10月\2023年10月29日\IMG_20231029_090206266.jpg"
    
11.              Stop
    
12.         End With
    
13. End Sub

复制代码

会飞稻草人

没有操作成功 记事本保存只能是txt文档，ppt.xlm原文件没有被更改，请问中间哪步操作有问题，谢谢啦