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

Krok 1

Wykonaj Excel, napisz "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 zakładkę "Programista" i kliknij "Makra", aby uruchomić okno dialogowe makra. Napisz "copyFromExcel" pod "Makro nazwę" i kliknij przycisk "Utwórz". Kliknij menu "Narzędzia" i naciśnij "Preferencje", aby wywołać okno dialogowe "Referencje". Przewiń w dół i zaznacz pole "Biblioteka obiektów Microsoft Excel" i kliknij "OK".

Krok 3

Skopiuj i wklej następujące elementy, aby utworzyć zmienne używane do kopiowania danych z programu Excel:

Dim sourceXL As Excel.Application Dim sourceBook As Excel.Workbook Dim sourceSheet As Excel.Worksheet Dim dataReadArray (10) Jako ciąg Dim MyPress jako prezentacja Dim newSlide jako slajd

Krok 4

Dostosuj wartości zmiennych obiektu:

Ustaw sourceXL = Excel.Application Ustaw sourceBook = sourceXL.Workbooks.Open ("G: \ ExcelFile.xlsx") Ustaw sourceSheet = sourceBook.Sheets (1) Ustaw myPres = ActivePresentation Ustaw newSlide = myPres.Slides.Add (Index: = myPres .Slides.Count + 1, Layout: = ppLayoutText)

Krok 5

Odczytaj dane z pliku Excel i zapisz w łańcuchu:

sourceSheet.Range ("A1") Wybierz dataReadArray (0) = sourceSheet.Range ("A1") Wartość sourceSheet.Range ("A2") Wybierz dataReadArray (1) = sourceSheet.Range ("A2"). sourceSheet.Range ("A3") Wybierz dataReadArray (2) = sourceSheet.Range ("A3") Wartość sourceSheet.Range ("A4") Wybierz dataReadArray (3) = sourceSheet.Range ("A4"). sourceSheet.Range ("A5") Wybierz dataReadArray (4) = sourceSheet.Range ("A5").

Krok 6

Dodaj dane z łańcucha wektorowego do nowego slajdu w bieżącej prezentacji:

newSlide.Shapes (1) .TextFrame.TextRange = "Dane skopiowane z Excela" newSlide.Shapes (2) .TextFrame.TextRange = dataReadArray (0) i vbNewLine & _ dataReadArray (1) & vbNewLine & _ dataReadArray (2) & vbNewLine & _ dataReadArray (3) & vbNewLine & _ dataReadArray (4) & vbNewLine

Krok 7

Zamknij skoroszyt:

sourceBook.Close

Krok 8

Przejdź do okna PowerPoint i kliknij "Makra". Kliknij "Uruchom", aby uruchomić makro "copyFromExcel" i dodaj nowy slajd z danymi skopiowanymi z pliku Excel utworzonego w kroku 1.