Откройте презентацию Powerpoint и обновите ссылки Excel в VBA.

Question

Я должен создать отчет автоматически на основе данных в Excel. В отчете уже установлены ссылки (текстовые поля, созданные с помощью «вставить как ссылку»), которые необходимо обновлять при каждом запуске кода. У меня есть код ниже, но он не обновляет ссылки. Как это возможно?

Dim PowerPointApp  As PowerPoint.Application
Set PowerPointApp = CreateObject("PowerPoint.Application")
Dim PowerPoint As PowerPoint.Presentation
PowerPointApp.Presentations.Open ("X:\Intranet\Templates\Investment Proposal Templates\IP Normal Template.pptx")

Answer 1

For Each sld In ActivePresentation.Slides

    For Each sh In sld.Shapes

        If sh.Type = msoLinkedOLEObject Then

            sh.LinkFormat.Update

        End If

    Next

Next