Comment mettre à jour excel les graphiques incorporés dans powerpoint?

Si vous avez besoin de modifier les graphiques alors clairement, vous aurez besoin de modifier le sous-jacent des fichiers Excel, ou être en mesure de modifier dans PowerPoint

Que vous utilisez PowerPoint2007 qui fournit support Excel (contrairement à PowerPoint 2003 qui a une feuille de données), je voudrais

Partie 1

1. Lien de votre fichier Excel de données pour les données Excel en dessous de chaque graphique
2. Offrent la possibilité d'utiliser les données directement, ou en balade avec les données de l'utilisateur

Cela vous donne une solution flexible, sauf que Excel sous-jacente de chaque graphique ne peut pas être mise à jour automatiquement via un menu PowerPoint mise à Jour des Liens de commande.

Partie 2

Vous pouvez utiliser le code ci-dessous pour tester chaque que chaque forme sur chaque diapositive dispose d'un graphique. Si ce code va mettre à jour la première Excel lien dans le fichier Excel en dessous du graphique (cette partie peut être modifié pour gérer de multiples liens)

    Sub ChangeChartData()

    Dim pptChart As Chart
    Dim pptChartData As ChartData
    Dim pptWorkbook As Object
    Dim sld As Slide
    Dim shp As Shape

    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.HasChart Then
                Set pptChart = shp.Chart
                Set pptChartData = pptChart.ChartData
                pptChartData.Activate
                Set pptWorkbook = pptChartData.Workbook
                On Error Resume Next
                'update first link
                pptWorkbook.UpdateLink pptWorkbook.LinkSources(1)
                On Error GoTo 0
                pptWorkbook.Close True
            End If
        Next
    Next

    Set pptWorkbook = Nothing
    Set pptChartData = Nothing
    Set pptChart = Nothing

End Sub

OriginalL'auteur brettdj