Jak automatycznie kopiować z programu Excel do programu PowerPoint przy użyciu VBA Macro

Jeśli kiedykolwiek chciałeś przyspieszyć transfer danych ze skoroszytu programu Microsoft Excel do prezentacji programu Microsoft PowerPoint, a następnie za pomocą makra i Visual Basic for Applications jest to sposób iść. VBA to język programowania komputerowego wykorzystywany w aplikacjach pakietu Microsoft Office do automatyzacji procesów, takich jak kopiowanie danych z programu Excel. Makro umożliwia zapisanie zestawu instrukcji, które można wielokrotnie wykonywać za pomocą jednego przycisku.

Krok 1
Uruchom program Excel, wpisz „Alan” w „A1, „Daniel” w „A2”, „Kitzia” w „A3”, „Oscar” w „A4” i „Yarexli” w „A5”. Naciśnij „CTRL” i „S”, aby zapisać skoroszyt w „C:” jako „ExcelFile.xlsx”. Zamknij program Excel.

Krok 2
Uruchom program PowerPoint, kliknij kartę „Deweloper” i kliknij opcję „Makra”, aby uruchomić okno dialogowe Makro. Wpisz „copyFromExcel” poniżej nazwy makra i kliknij przycisk „Utwórz”. Kliknij menu „Narzędzia” i kliknij „Referencje”, aby uruchomić okno dialogowe Referencje. Przewiń w dół i zaznacz pole obok „Biblioteka obiektów Microsoft Excel” i kliknij „OK.”

Krok 3
Skopiuj i wklej poniższe, aby utworzyć zmienne, których będziesz używać do kopiowania danych z Excela: Dim sourceXL As Excel.Application Dim sourceBook As Excel.Workbook Dim sourceSheet As Excel.Worksheet Dim dataReadArray (10) As String Dim myPress jako prezentacja Dim newSlide As Slide

Krok 4
Ustaw wartości na zmienne obiektu : Ustaw sourceXL = Excel.Application Set sourceBook = sourceXL.Workbooks.Open ("G: ExcelFile.xlsx") Ustaw sourceSheet = sourceBook.Sheets (1) Set myPres = ActivePresentation Set newSlide = myPres.Slides.Add (Index: = myPres.Slides.Count + 1, Layout: = ppLayoutText)

Krok 5
Przeczytaj dane w pliku Excel i zapisz je w tablicy String: sourceSheet.Range ("A1"). Wybierz dataReadArray (0) = sourceSheet.Range ("A1"). Wartość sourceSheet.Range ("A2"). Wybierz dataReadArray (1) = sourceSheet.Range ("A2"). Wartość sourceSheet.Range ("A3"). Wybierz dataReadArray (2) = sou rceSheet.Range ("A3"). Wartość sourceSheet.Range ("A4"). Wybierz dataReadArray (3) = sourceSheet.Range ("A4"). Wartość sourceSheet.Range ("A5"). Select dataReadArray (4) = sourceSheet.Range ("A5"). Wartość

Krok 6
Dodaj dane z tablicy String do nowego slajdu w bieżącej prezentacji: newSlide.Shapes (1) .TextFrame.TextRange = "Dane skopiowane z Excela "newSlide.Shapes (2) .TextFrame.TextRange = dataReadArray (0) & vbNewLine & _ dataReadArray (1) & vbNewLine & _ dataReadArray (2) & vbNewLine & _ dataReadArray (3) & vbNewLine & _ dataReadArray (4 ) & vbNewLine

Krok 7
Zamknij skoroszyt: sourceBook.Close
Przejdź do okna PowerPoint i kliknij „Makra”. Kliknij „Uruchom”, aby uruchomić makro „copyFromExcel” i dodać nowy slajd z danymi skopiowanymi z pliku Excel utworzonego w kroku 1.

URL:https://pl.whycomputer.com/oprogramowanie/100301198.html