Jak aktualizować wbudowane wykresy programu Excel w programie PowerPoint?

Question

Mam 30 wykresów, które zostały utworzone z programu Excel i zostały wklejone na slajdy PowerPoint. Każdego miesiąca muszę aktualizować te 30 osadzonych wykresów, ręcznie klikając na wykresy i edytując.

Zdaję sobie sprawę, że istnieje opcja specjalnego wklejania, dzięki czemu dane na wykresach mogą być aktualizowane automatycznie, klikając linki aktualizacji. Jednak niektóre wykresy wymagają edycji. Opcja wklejania specjalnego nie pozwala użytkownikom na edycję wykresów. Dlatego nie mogę użyć tej specjalnej opcji wklejania.

Myślę, że rozwiązaniem jest pisanie vba w powerpoint. Czy każdy ekspert może zaproponować napisanie tego kodu vba, aby umożliwić aktualizację wszystkich wykresów w programie PowerPoint? Obecnie korzystam z programu PowerPoint 2007. Twoja pomoc jest bardzo doceniana.

Answer 1

Jeśli chcesz edytować wykresy wtedy wyraźnie będzie to albo trzeba edytować leżące plików Excel, czy można edytować w programie PowerPoint

Jak używasz PowerPoint2007 który zapewnia pełną obsługę Excel (w przeciwieństwie do programu PowerPoint 2003, które ma arkusz) bym

Część 1

1. link Twój Excel dane pliku z danymi programu Excel pod spodem każdego wykresu
2. dają możliwość użyć tych danych bezpośrednio lub nad-ride to z danych użytkownika

Daje to elastyczne rozwiązanie, oprócz tego, że Excel bazowych każdego wykresu nie mogą być aktualizowane automatycznie za pomocą programu PowerPoint menu Polecenie Uaktualnij łącza.

Część 2

Można użyć kodu poniżej, aby sprawdzić, czy każdy kształt każdy na każdego slajdu ma wykres. Jeśli tak, to kod zaktualizuje pierwszy link Excel w pliku Excel poniżej wykresu (ta część może być manipulowane, aby obsłużyć wiele linków)

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 

Answer 2

Jest to dość łatwo zrobić bez kodu VBA wymagane.

1. kliknij przycisk "Biuro", wybierz "Edytuj Linki do pliku" (to pod "Run Compatibility Check", trzeba będzie przewinąć w dół, aby zobaczyć tę ostatnią opcję):

   

2. Zaznacz wszystkie wykresy osadzone (określane tu jako "linki"), kliknij przycisk "Aktualizuj teraz":

   

Możesz użyć tego samego okna do przerwania linków, a także do zmiany pliku źródłowego dla dowolnego linku.