求助VBA中PPT超链接问题

qyf1999

PPT中如果有很多Excel Linked table，如果想更改Master Excel file的地址的话必须要手工的一个个修改链接，其实通过VBA可以自动修改所有链接，代码如下：
Explanation：
在ppt中，每一个图像都是一个Shape对象，修改链接路径实际上就是修改shape.LinkFormat.SourceFullName ，
通过If shap.Type = msoLinkedOLEObject 可以判断PPT中的图像是不是一个链接到Excel得图形。
如果要批量删除Link 的话循环执行shape.LinkFormat.BreakLink 即可。


Sub Update_PPT_Links()
'On Error Resume Next

Dim pres As Presentation
Set pres = Application.ActivePresentation
Dim sli As Slide
Dim shap As Shape
Dim old_name As String
Dim new_name As String

new_name = "AAA"
old_name = "BBB"


For Each sli In pres.Slides

For Each shap In sli.Shapes
If shap.Type = msoLinkedOLEObject Then
shap.LinkFormat.SourceFullName = VBA.Replace(shap.LinkFormat.SourceFullName, old_name, new_name)
'this will break the link
'shap.LinkFormat.BreakLink

End If
Next shap


Next sli
pres.UpdateLinks
End Sub

求助：为啥我运行的时候shap.Type 总是不等于msoLinkedOLEObject