Dynamiczne wykresy w programie Powerpoint: wykresy, które aktualizują się automatycznie

Technicznie rzecz biorąc, w programie PowerPoint można połączyć plik Excel z prezentacją programu PowerPoint. Nie sprawi to jednak, że wykres będzie dynamiczny i czasami trudno określić, kiedy wykres zostanie zaktualizowany. A co jeśli chcemy jeszcze więcej? A co jeśli chcemy, aby wykres był aktualizowany podczas prezentacji?

Wyobraź sobie, że chcesz zaprezentować serię dynamicznych slajdów w środowisku pakietu Office, a każdy slajd przedstawia najnowsze wykresy ze zaktualizowanego pulpitu nawigacyjnego programu Excel. W innych przypadkach możesz chcieć uniknąć jakichkolwiek łączy do plików Excel i po prostu mieć dynamiczne odniesienie do pliku lub plików źródłowych. Dzisiaj będziemy odkrywać, jak tworzyć dynamiczne wykresy w programie PowerPoint za pomocą VBA.

Może być zainteresowany: Zalety programu PowerPoint w porównaniu z innymi narzędziami do prezentacji

Historyczny przegląd grafiki programu PowerPoint

Kiedy rozpoczęliśmy pracę nad programem ConferencePoint i przystąpiliśmy do tworzenia programu DataPoint, który został oficjalnie wydany w 2003 r., programy PowerPoint 1997, 2000 i 2003 korzystały z aparatu Microsoft Graph do wyświetlania wykresów na slajdach. W wersji PowerPoint lub Office 2007 w programie PowerPoint wprowadzono nowy silnik graficzny. Wyglądał dokładnie tak, jak najlepszy silnik wykresów Microsoft Excel.

Dlaczego nie skorzystać z połączonych wykresów?

Zanim zaczniemy, chcemy wyjaśnić, że nie musisz w prosty sposób stosować podejścia opisanego poniżej połącz wykres Excela do prezentacji w programie PowerPoint. Celem tego ćwiczenia jest uniknięcie tworzenia linków i zapewnienie całkowitej elastyczności zgodnie z Twoimi preferencjami, gdy chcesz zaktualizować swoje wykresy, a nawet zaktualizować pliki Excel przed wykonaniem tej czynności.

Tworzenie dynamicznych wykresów w programie PowerPoint

Poniżej znajduje się samouczek krok po kroku dotyczący konfigurowania wykresów przestawnych w programie PowerPoint i makrze:

Krok 1: Utwórz PowerPoint i kształty

Najpierw musimy utworzyć kształt programu PowerPoint, który będzie używany jako element zastępczy do zaznaczenia lokalizacji i rozmiaru naszego wykresu. Kliknij obrazek poniżej w celach informacyjnych.

Krok 2: Utwórz wykres Excela

Następnie musimy utworzyć i nazwać wykres Excela. Zostanie to skopiowane i wklejone jako obraz do naszego programu PowerPoint, aby zapobiec łączeniu i zapewnić, że formatowanie jest identyczne z tym, jak jest wyświetlane w pliku Excel.

Krok 3: Utwórz makro VBA wykresu dynamicznego w programie PowerPoint

Jeśli nie wiesz, jak uzyskać dostęp do zakładki Dewelopermożesz postępować podobnie jak w Excelu. Następnie utwórz nowy moduł VBA i skopiuj następujący kod VBA:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

#Jeśli VBA7 To Publicznie zadeklaruj PtrSafe Sub Sleep Lib «kernel32» (ByVal milisekundy jako LongPtr) „MS Office 64 Bit #W przeciwnym razie Publicznie zadeklaruj sub-uśpienie Lib «kernel32» (w milisekundach według wartości) „MS Office 32-bitowy #KoniecJeśli   Funkcja CopyChartFromExcelToPPT(excelFilePath jako ciąg znaków, nazwa_arkusza jako ciąg znaków, nazwa wykresu jako ciąg znaków, dstSlide jako długi, opcjonalny kształtLeft jako długi, opcjonalny kształtTop jako długi, opcjonalny kształtWidth tak długi, opcjonalny kształtWysokość tak długi) jako kształt W przypadku błędu Przejdź do ErrorHandl „Obsługa błędów   „Ustaw zmienne i otwórz Excel”. Dim eApp Jako Excel.Aplikacja, wb Jako Excel.Workbook, ppt Jako PowerPoint.Prezentacja, ws Jak Excel.Arkusz Ustaw eApp = Nowa aplikacja Excel eApp.Visible = Fałsz Ustaw wb = eApp.Workbooks.Open(excelFilePath) Ustaw ppt = ActivePresentation „Kopiuj wykres w Excelu wb.Sheets(nazwa_arkusza).ChartObjects(nazwawykresu).Kopia   'Wklej do pierwszego slajdu aktywnej prezentacji programu PowerPoint ppt.Slides(dstSlide).Shapes.PasteSpecial ppPasteBitmap Ustaw CopyChartFromExcelToPPT = ppt.Slides(dstSlide).Shapes(ppt.Slides(dstSlide).Shapes.Count) „Zamknij i wyczyść Excela wb.Close SaveChanges:=False eApp.Zamknij Ustaw wb = Nic: Ustaw eApp = Nic   'Przesuń nowy kształt, jeśli jest dostępny po lewej/u góry Jeśli nie (IsMissing(shapeTop)) To Z CopyChartFromExcelToPPT .Left = kształtLewy .Top = kształtGóra Kończyć z End If Jeśli nie (IsMissing(shapeWidth)) To Z CopyChartFromExcelToPPT .LockAspectRatio = Fałsz .Width = szerokość kształtu .Wysokość = kształtWysokość Kończyć z End If Funkcja wyjścia Obsługa błędów: 'Pamiętaj o zamknięciu skoroszytu i programu Excel i zwróceniu wartości False On Error Resume Next Jeśli nie (eApp jest niczym), to wb.Close SaveChanges:=False eApp.Zamknij End If Ustaw CopyChartFromExcelToPPT = Nic End Function

Pozwól mi to rozbić. Wcześniej najpierw zdefiniowaliśmy funkcję Uśpienie VBA, ponieważ będziemy go używać jako mechanizmu opóźnienia między aktualizacjami. Następnie definiujemy funkcję Skopiuj wykres z programu Excel do PPT który zasadniczo wykonuje następujące czynności:

1. Otwiera plik Excel zdefiniowany za pomocą ExcelFilePath.
2. Kopiuje wykres chartName z arkusza sheetName.
3. Wkleja go do ActivePresentation na slajdzie dstSlide i lokalizacji kształtGóra i kształtLeft, z rozmiaremkształtuWidth i kształtWysokość

Jak widać, jest to funkcja ogólna, którą możesz ponownie wykorzystać do własnych celów, niezależnie od przykładu użycia, którego będziesz używać.

Krok 4: Automatycznie zaktualizuj wykres

Stwórzmy teraz prosty scenariusz wykorzystujący funkcję ogólną do kopiowania wykresu z programu Excel do programu PowerPoint:

• Krok 1: działa w trybie Presentación.
• Krok 2: co sekunda aktualizuje wykres Excela i aktualizuje znacznik czasu.
• Krok 3: wyjdź z trybu prezentacji.

Poniżej kod VBA robi dokładnie to:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Test podrzędnyAutoUpdate() Przyciemnij shp jako kształt, shp1 jako kształt, shpTxt jako kształt Wykres wymiarowy Element zastępczy jako kształt, kształt czasu jako kształt, numer slajdu jako długi 'Uzyskaj kształty zastępcze, ukryj ChartPlaceholder numer slajdu = 1 Ustaw chartPlaceholder = ActivePresentation.Slides(slideNumber).Shapes("ChartPlaceholder"): chartPlaceholder.Visible = msoFalse Ustaw timeShape = ActivePresentation.Slides(SlideNumber).Shapes("TimeStamp")   'Rozpocznij prezentację! ActivePresentation.SlideShowSettings.Run   'Zaktualizuj wykres i ustaw znacznik czasu Ustaw shp = CopyChartFromExcelToPPT(ActivePresentation.Path & «\Test.xlsx», «Sheet1», «Chart 1», slideNumber, chartPlaceholder.Left, chartPlaceholder.Top, chartPlaceholder.Width, chartPlaceholder.Height) timeShape.TextFrame.TextRange.Text = Format(Teraz(), «RRRR-MM-DD GG:MM») DoEvents Sleep 1000 Dla i = 0 To 3 'Zaktualizuj wykres, usuń stary kształt i ustaw znacznik czasu Ustaw shp1 = CopyChartFromExcelToPPT(ActivePresentation.Path & «\Test.xlsx», «Sheet1», «Chart 1», slideNumber, chartPlaceholder.Left, chartPlaceholder.Top, chartPlaceholder.Width, chartPlaceholder.Height) shp.Delete: Ustaw shp = shp1 timeShape.TextFrame.TextRange.Text = Format(Teraz(), «RRRR-MM-DD GG:MM») „Śpij przez 1 sekundę DoEvents Sleep 1000 Dalej i „Koniec prezentacji! ActivePresentation.SlideShowWindow.View.Exit 'Usuń wykres i przywróć widoczność elementu ChartPlaceholder shp.Usuń wykresPlaceholder.Visible = msoTrue End Sub

Przypadki użycia dynamicznych wykresów w programie PowerPoint

Dla nas sposób animować wykresy programu Excel w programie PowerPoint wprowadza nową paletę opcji, które jeszcze bardziej przesuwają granice tego, co możemy zrobić z programem PowerPoint. Poniżej znajduje się krótka lista pomysłów, które pomogą Ci wyobrazić sobie, jak przydatne może to być:

1. Utwórz dynamiczną prezentację pakietu Office z automatycznie aktualizowanymi wykresami z wielu plików Excel.
2. Utwórz przycisk, aby ręcznie aktualizować jeden lub wszystkie wykresy w prezentacji programu PowerPoint.
3. Utwórz łatwy sposób łączenia wykresów programu PowerPoint z plikami programu Excel, które mogą zostać przeniesione (na przykład poprzez utworzenie łącza do plików programu Excel w tym samym katalogu).

Wybieraj pomiędzy dynamicznymi tabelami i wykresami w programie PowerPoint

Nadal możesz używać nowego obiektu graficznego do wyświetlania grafiki w czasie rzeczywistym na slajdach. Ale za każdym razem zobaczysz migający arkusz danych Punkt danych otwórz zawartość danych wykresu. W przypadku prezentacji online, czyli innymi słowy, gdy uruchamiasz dla odbiorców pokaz slajdów programu PowerPoint na dedykowanym komputerze lub ekranie telewizora, a chcesz uniknąć oglądania tego arkusza, musisz użyć „starszej” grafiki.

Może chcesz wiedzieć: Jak korzystać z języka VBA w programie PowerPoint: przewodnik dla początkujących

Jak wstawić grafikę na slajdzie

W przypadku najnowszej wersji DataPoint wystarczy kliknąć, aby otworzyć menu wstawić swojego programu PowerPoint. Na końcu oryginalnych przycisków znajdziesz nową grupę Punkty danych z przyciskiem Graficzny. Gdy jesteś na slajdzie, po prostu kliknij przycisk Graficzny i wstawi dla Ciebie nowy domyślny obiekt wykresu. To zachowuje się jak nowa opcja Wstaw > Wykres.

Po skonfigurowaniu połączenia danych z wybranym źródłem danych i wybraniu tego obiektu wykresu kliknij Punkt danych a następnie na przycisku Graficzny aby przypisać do tego dane połączenia danych wykres/wykres.

Ten obiekt wykresu można doskonale wykorzystać w pokazie slajdów wyświetlaj informacje w czasie rzeczywistym w formie wykresu pasek lub okrągły. Ale największą zaletą jest to, że na ekranie nie zobaczysz arkusza danych z migającymi informacjami.

Kiedy edytujesz wykres

Za każdym razem, gdy klikniesz, aby edytować obiekt wykresu, program PowerPoint wyświetli następujące informacje: „Aby edytować wykres przy użyciu najnowszych funkcji programu PowerPoint, musisz przekonwertować go na nowszy format'. Wybierać Edytuj istniejące tutaj kontynuować korzystanie z obiektu Microsoft Graph.

PowerPoint zapyta Cię o to za każdym razem. Jeśli uważasz to za denerwujące i chcesz nadal używać grafiki, być może wyłącz to pytanie. W tym celu należy przejść do rejestru i dodać nowy klucz (DWORD) o nazwie Włącz MSGraph do tej ścieżki poniżej i ustaw wartość na 1.

\HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\Charting

Wartość 16,0 reprezentuje tutaj wersję PowerPoint 2016. Użyj 15,0 dla PowerPoint 2013 i 14,0 dla PowerPoint 2010.

Jak stworzyć dynamiczną prezentację

Jeśli masz prezentację zawierającą kilka wykresów i raportów, nigdy nie wiesz, jak często będziesz musiał ją aktualizować. Na przykład utwórz kwartalny raport wydajności i otrzymuj nowe dane co godzinę. W tym przypadku lepiej jest zamiast tabel i wykresów PowerPointa osadzić obiekt Excela. Informacje są automatycznie aktualizowane po aktualizacji w tabeli Excel.

Aby utworzyć slajd w prezentacji programu PowerPoint z automatycznie aktualizowanymi danymi, wykonaj następujące czynności:

Krok 1: Wybierz wykres lub tabelę w programie Excel, którą chcesz dodać do prezentacji, i wykonaj jedną z następujących czynności:

1. Kliknij na Ctrl + C.
2. W zakładce Home, w grupie Schowek, naciśnij przycisk Kopiuj.

3. Kliknij prawym przyciskiem myszy wybrany obiekt i wybierz Kopiuj z wyskakującego menu.

Krok 2: Otwórz slajd prezentacji, w którym chcesz wstawić obiekt przewyższać a następnie w zakładce Home, w grupie Schowek, wybierz z listy rozwijanej opcję Złapać.

• 1. Jeśli spróbujesz wkleić wykres.

Z listy Opcje wklejania wybierz:

• Użyj motywu docelowego i danych linków.
• Zachowaj format źródłowy i dane linków.

Opcja Użyj motywu docelowego przyjmie kolory, czcionki i efekty motywu docelowej prezentacji, do której wklejasz. Kolory źródłowe zostaną zmienione, źródła i skutki. Zachowaj formatowanie źródłowe zachowa kolory motywu, czcionki i efekty prezentacji, z której kopiujesz. Wszystkie kolory, czcionki i efekty będą takie same jak w skoroszycie źródłowym.

Dane łącza Tej opcji użyjesz, jeśli chcesz, aby informacje na wykresie lub arkuszu kalkulacyjnym były aktualizowane automatycznie po aktualizacji danych źródłowych. Utworzone zostanie łącze do oryginału, a modyfikacje źródła spowodują zmiany w dokumencie docelowym.

¡Uwaga! Ponieważ ta metoda tworzy łącze do określonego arkusza kalkulacyjnego programu Excel, w przypadku przeniesienia lub usunięcia pliku źródłowego nie będzie można zaktualizować wykresu.

 2.2.  Jeśli chcesz wstawić tabelękliknij opcję Wklej specjalnie:

Uwaga: Żadna inna opcja wklejania nie tworzy łącza do pliku źródłowego, więc wszelkie zmiany w tabeli programu Excel nie powodują aktualizacji tabeli w programie PowerPoint.

W oknie dialogowym Specjalny klej, zaznacz pole wyboru Wklej link i kliknij akceptować:

Jeśli teraz zmienisz cokolwiek na wykresie lub tabeli, zmiany zobaczysz w prezentacji programu PowerPoint:

Inne opcje wklejania wykresu Excel:

• Użyj motywu docelowego i osadź skoroszyt.
• Zachowaj format źródłowy i osadź skoroszyt.

Osadź skoroszyt utworzy kopię danych i osadzi ją w dokumencie docelowym. Przyszłe zmiany w czcionce nie zostaną odzwierciedlone. Możesz ręcznie zmienić wykres, klikając go dwukrotnie i wprowadzając zmiany w miniarkuszu kalkulacyjnym otwierającym się w dokumencie docelowym.

Zmiany wprowadzone w dokumencie docelowym również nie będą miały wpływu na dane źródłowe. Osadzanie wykresu i danych źródłowych jest przydatne w przypadku udostępniania dokumentów między komputerem osoby przeglądającej a Twoim własnym.

Można jednak tworzyć bardzo duże pliki. Obiekt pliku źródłowego zostanie wyświetlony jako obraz. Jakakolwiek zmiana czcionki nie powoduje zmiany tego obrazu. Możesz następnie edytować obraz jak każdy inny, ale nie będziesz mógł zmienić ani otworzyć danych źródłowych ani zmienić wykresu.

Spojrzeć na: Jak korzystać ze wskaźnika laserowego w programie Powerpoint (zielony, czerwony i niebieski)

Finales Pensamientos

Gotowe, teraz wiesz, jak pracować z dynamiczną grafiką w programie PowerPoint. Jesteśmy pewni, że nowa forma wykresów, która została wprowadzona w programie PowerPoint i którą Microsoft opracował dla nowszych wersji programu PowerPoint, jest dla nas wszystkich znacznie lepsza w porównaniu ze starszym obiektem Microsoft Graph. Ale jak się dowiedzieliśmy, aktualizacja arkusza danych bez flashowania arkusza danych jest obecnie technicznie niemożliwa i powoduje uszkodzenia. Mamy nadzieję, że ten poradnik był dla Ciebie przydatny i że odwiedzisz nas ponownie.