Automatyczne kopiowanie danych z Excela do PowerPointa za pomocą makra VBA

Jeśli chcesz szybko przenieść dane z arkusza Excel do prezentacji PowerPoint, najprościej użyć makra VBA. Visual Basic for Applications pozwala automatyzować zadania w pakiecie Office, a makro zapisuje zestaw instrukcji, które można uruchamiać jednym kliknięciem.

Krok 1 – przygotowanie pliku Excel

Otwórz Excel i wprowadź następujące wartości:

• A1 – Alan
• A2 – Daniel
• A3 – Kitzia
• A4 – Oscar
• A5 – Yarexli

Zapisz plik jako C:\ExcelFile.xlsx (Ctrl + S) i zamknij Excel.

Krok 2 – utworzenie makra w PowerPoint

Uruchom PowerPoint, przejdź do zakładki Developer i kliknij Macros. Wpisz nazwę copyFromExcel i wybierz Create. Następnie w menu Tools → References zaznacz Microsoft Excel Object Library i zatwierdź OK.

Krok 3 – deklaracja zmiennych

Wklej poniższy kod, który definiuje potrzebne obiekty:

Dim sourceXL As Excel.Application
Dim sourceBook As Excel.Workbook
Dim sourceSheet As Excel.Worksheet
Dim dataReadArray(4) As String
Dim myPres As Presentation
Dim newSlide As Slide

Krok 4 – otwarcie pliku Excel i przygotowanie slajdu

Set sourceXL = New Excel.Application
Set sourceBook = sourceXL.Workbooks.Open("C:\\ExcelFile.xlsx")
Set sourceSheet = sourceBook.Sheets(1)

Set myPres = ActivePresentation
Set newSlide = myPres.Slides.Add(Index:=myPres.Slides.Count + 1, Layout:=ppLayoutText)

Krok 5 – odczyt danych z Excela

dataReadArray(0) = sourceSheet.Range("A1").Value
dataReadArray(1) = sourceSheet.Range("A2").Value
dataReadArray(2) = sourceSheet.Range("A3").Value
dataReadArray(3) = sourceSheet.Range("A4").Value
dataReadArray(4) = sourceSheet.Range("A5").Value

Krok 6 – wstawienie danych na nowy slajd

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

Krok 7 – zamknięcie pliku i uruchomienie makra

Po zakończeniu zamknij skoroszyt: sourceBook.Close. Wróć do PowerPoint, otwórz okno Macros i uruchom copyFromExcel. Nowy slajd pojawi się z danymi pobranymi z Excela.