Wie aktualisieren von excel eingebettete Diagramme in powerpoint?

Wenn Sie brauchen, um Bearbeiten Sie die Diagramme dann ist klar, müssen Sie entweder Bearbeiten die zugrunde liegenden Excel-Dateien oder in der Lage sein, zu Bearbeiten in PowerPoint

Als Sie mit PowerPoint2007, die vollständige Excel-Unterstützung (im Gegensatz zu PowerPoint 2003, die hat ein Datenblatt) würde ich

Teil 1

1. Verknüpfen Sie Ihre Excel-Datei Daten in die Excel-Daten unter jedem Diagramm
2. Die Möglichkeit bieten, entweder, dass die Daten direkt, oder über-fahren Sie mit user Daten

Dies gibt Ihnen eine flexible Lösung, mit der Ausnahme, dass die zugrunde liegenden Excel-jedes Diagramm nicht automatisch aktualisiert werden kann, über eine PowerPoint-Menü Hyperlinks Aktualisieren-Befehl.

Teil 2

Können Sie verwenden Sie den folgenden code zu testen, ob jeder Form, auf jede Folie hat eine Karte. Wenn also dieser code aktualisiert die erste Excel-Verknüpfung in der Excel-Datei unter dem chart (dieser Teil kann gezwickt werden, um mehrere links)

    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