Блог

У меня есть файл PowerPoint, содержащий множество диаграмм, связанных с файлом Excel, которые автоматически обновляются при нажатии на «Обновить ссылки» в PowerPoint.
Пользователи могут обновлять диаграммы в файле Excel, а затем нажимать кнопку для запуска макроса, который открывает файл PowerPoint и обновляет ссылки. Однако он не распознает, что уже открытый файл Excel является тем, из которого он должен обновляться, и пытается повторно открыть файл Excel из sharepoint, что приводит к ошибке «Не удается открыть 2 файла с одинаковым именем». Пользователи не должны иметь возможности изменять файл Excel, поэтому это означает, что сначала его сохранение, а затем закрытие открытого файла Excel, чтобы powerpoint мог затем снова открыть его самостоятельно, недоступно. То же самое касается сохранения файла под другим именем, поскольку эти изменения не будут сохранены.

Это известная проблема с PowerPoint или есть другой способ заставить это работать должным образом при извлечении данных из расположения Sharepoint, чтобы он распознал, что уже открытый файл Excel — это тот же файл, который он должен открывать для обновления ссылок?

Я прикрепил используемый код:

     Sub updatelinksppt()

    Dim i As Long
    Dim s As Long
    Dim name As String

    On Error Resume Next

 With CreateObject("PowerPoint.Application")
    .Visible = True
    .Presentations.Open "SharePoint/Path", Untitled:=msoTrue
   With .ActivePresentation
    .UpdateLinks


     For i = 1 To .Slides.Count
       For s = 1 To .Slides(i).Shapes.Count
         .Slides(i).Shapes(s).LinkFormat.BreakLink
       Next s
     Next i
     name = Sheets("User Form").Range("B4")
    .SaveAs Filename:="C:UsersPath" amp; name amp; ".pptx"
     End With
   End With

End Sub