Jak automaticky kopírovat data z Excelu do PowerPointu pomocí VBA makra

Chcete rychle přenést data z tabulky Microsoft Excel do prezentace Microsoft PowerPoint? Pomocí makra ve Visual Basic for Applications (VBA) můžete celý proces automatizovat a provést jej jedním kliknutím. VBA je programovací jazyk integrovaný v aplikacích Office, který umožňuje například kopírování dat mezi programy.

Krok 1 – Příprava souboru v Excelu

Otevřete Excel a zadejte následující hodnoty:

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

Soubor uložte jako ExcelFile.xlsx do kořenového adresáře C:\ (Ctrl + S) a zavřete Excel.

Krok 2 – Vytvoření makra v PowerPointu

Spusťte PowerPoint, přejděte na kartu Developer a zvolte Macros. Do pole Macro name napište copyFromExcel a klikněte na Create.

V editoru VBA otevřete menu Tools → References. V seznamu najděte položku Microsoft Excel xx.x Object Library (verze se může lišit) a zaškrtněte ji. Potvrďte kliknutím na OK.

Krok 3 – Deklarace proměnných

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 – Otevření Excelu a vytvoření nové snímky

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 – Načtení dat do pole

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 – Vložení načtených hodnot do snímky

newSlide.Shapes(1).TextFrame.TextRange.Text = "Data zkopírovaná z Excelu"
newSlide.Shapes(2).TextFrame.TextRange.Text = Join(dataReadArray, vbCrLf)

Krok 7 – Ukončení a spuštění makra

Uzavřete otevřený sešit: sourceBook.Close. V PowerPointu opět otevřete dialog Macros**, vyberte copyFromExcel a klikněte na **Run**. V prezentaci se objeví nová snímka s přenesenými údaji.