Question

我有一些vba代码来更新powerpoint中的链接。对于某些链接，它可以完美地工作，对于某些链接，它只是不想更新我注意到链接更新，如果它是一个excel工作表，但如果链接是excel中的图表，它不想更新：

Sub ul()
Dim pptSlide As Slide
Dim pptShape As Shape

Dim oldString As String
oldString = "C:\Users\username\Downloads\dir\Mar Apr 2014\"
Dim newString As String
newString = "C:\Users\newusername\Downloads\dir\Jan Feb 2015\"

For Each pptSlide In ActivePresentation.Slides
    For Each pptShape In pptSlide.Shapes
        If pptShape.Type = msoLinkedOLEObject Or pptShape.Type = msoLinkedPicture Then
            With pptShape.LinkFormat
                If InStr(1, UCase(.SourceFullName), UCase(oldString)) Then
                    .SourceFullName = Replace(.SourceFullName, oldString, newString)
                End If
            End With
        End If
    DoEvents
    Next pptShape
DoEvents
Next pptSlide
End Sub

非常感谢帮助。

Answer 1

尝试扩展您的If查询，如

\\n

用于更新Powerpoint链接的VBA

1 个答案: