Comment mettre à jour embeded excel liens dans powerpoint 2010 à l'aide de vba

Mon problème est que j'ai collé mes cartes en powerpoint et je suis en train de mettre à jour les liens intégrés via Excel-VBA.

J'ai essayé les codes ci-dessous et a échoué:

code 1

    AppPPT.Presentations.Open "D:\Demo.pptx", Untitled:=msoTrue
    AppPPT.ActivePresentation.UpdateLinks
    AppPPT.ActivePresentation.SaveAs "D:\Demo.pptx"

code 2

    For i = 1 To AppPPT.ActivePresentation.Slides.Count
    For s = 1 To AppPPT.ActivePresentation.Slides(i).Shapes.Count
        If AppPPT.ActivePresentation.Slides(i).Shapes(s).Type = msoLinkedOLEObject Then
            AppPPT.ActivePresentation.Slides(i).Shapes(s).LinkFormat.Update
        End If
    Next s
Next i

code 3

    Set PPTTemplate = AppPPT.Presentations.Open("D:\Demo.pptx")

    ' update chart
    Dim osld As Slide
    Dim oshp As PowerPoint.Shape

    For Each osld In PPTTemplate.Slides
    For Each oshp In osld.Shapes
    With oshp
    If .HasChart Then
    .Chart.ChartData.Activate
    .Chart.ChartData.Workbook.Close
    .Chart.Refresh
    End If
    End With
    Next oshp
    Next osld

    AppPPT.Activate
Il serait bon de voir un exemple de fichier PPT, des liens peuvent être directement dans les charts, ou via Excel-dessous les graphiques.
+ 1 pour montrer à quoi avez-vous essayé 🙂
Avez-vous vu ce post par @brettdj stackoverflow.com/questions/9207267/...
Merci pour la Réponse,j'ai un autre problème auquel je suis en train de copier l'original ppt à l'autre ppt dont j'ai besoin pour supprimer tous les liens de mise à jour dans la copie du ppt est-ce possible?Si oui, veuillez me donner quelque exemple de code.

OriginalL'auteur Dinesh Haraveer | 2013-02-19