Ako automaticky kopírovať z programu Excel do programu PowerPoint pomocou nástroja VBA Macro

Ak ste niekedy chceli urýchliť prenos údajov zo zošita programu Microsoft Excel do prezentácie programu Microsoft PowerPoint, potom je použitie makra a jazyka Visual Basic for Applications spôsob, ako ísť. VBA je počítačový programovací jazyk používaný v aplikáciách balíka Microsoft Office na automatizáciu procesov, ako je napríklad kopírovanie údajov z programu Excel. Makro vám umožňuje uložiť súbor pokynov, ktoré môžete znova a znova vykonať kliknutím na tlačidlo.

Krok 1

Spustite program Excel, do poľa A1 zadajte príkaz „Alan“, „Daniel“ v „A2“, „Kitzia“ v „A3“, „Oscar“ v „A4“ a „Yarexli“ v „A5“. Stlačením klávesov „CTRL“ a „S“ sa pracovný zošit uloží do priečinka „C: \\“ ako „ExcelFile.xlsx“. Zatvorte program Excel.

Krok 2

Spustite program PowerPoint, kliknite na kartu „Vývojár“ a kliknutím na „Makrá“ otvorte dialógové okno Makro. Do poľa Macro Name (Názov makra) napíšte „copyFromExcel“ a kliknite na tlačidlo „Create“ (Vytvoriť). Kliknite na ponuku „Nástroje“ a kliknutím na „Odkazy“ otvorte dialógové okno Odkazy. Posuňte zobrazenie nadol a začiarknite políčko vedľa položky „Objektová knižnica programu Microsoft Excel“ a kliknite na „OK“.

Krok 3

Skopírujte a prilepte nasledujúce, aby ste vytvorili premenné, ktoré budete používať na kopírovanie údajov z Excelu: Dim sourceXL As Excel.Application Dim sourceBook As Excel.Workbook Dim sourceSheet As Excel.Worksheet Dim dataReadArray (10) As String Dim myPress As Presentation Dim newSlide As Slide

Krok 4

Nastavovanie hodnôt premenných objektov : Set sourceXL \u003d Excel.Application Set sourceBook \u003d sourceXL.Workbooks.Open ("G: \\ ExcelFile.xlsx") Set sourceSheet \u003d sourceBook.Sheets (1) Set myPres \u003d ActivePresentation Set newSlide \u003d myPres.Slides.Add (Index: \u003d myPres.Slides.Count + 1, Layout: \u003d ppLayoutText)

Krok 5

Prečítajte si údaje v súbore Excel a uložte ich do poľa String: sourceSheet.Range ("A1"). Vyberte dataReadArray (0) \u003d sourceSheet.Range ("A1"). Hodnota sourceSheet.Range ("A2"). Vyberte dataReadArray (1) \u003d sourceSheet.Range ("A2"). Value sourceSheet.Range ("A3"). Vyberte dataReadArray ", 3, [[rceSheet.Range ("A3"). Zdroj hodnotySheet.Range ("A4"). Vyberte dataReadArray (3) \u003d sourceSheet.Range ("A4"). Source sourceSheet.Range ("A5"). Vyberte dátaReadArray (4) \u003d sourceSheet.Range ("A5"). Hodnota

Krok 6

Pridajte údaje z poľa String do nového snímky v aktuálnej prezentácii: newSlide.Shapes (1) .TextFrame.TextRange \u003d "Data skopírované z Excelu "newSlide.Shapes (2) .TextFrame.TextRange \u003d dataReadArray (0) & vbNewLine & _ dataReadArray (1) & vbNewLine & _ dataReadArray (2) & vbNewLine & _ dataReadArray (3) & vbNeadLine _ (4) ) & vbNewLine

Krok 7

Zatvorte zošit: sourceBook.Close

Prepnite do okna programu PowerPoint a kliknite na položku Makrá. Kliknutím na "Spustiť" spustite makro "copyFromExcel" a pridajte novú snímku s údajmi skopírovanými zo súboru Excel, ktorý ste vytvorili v kroku 1.

• Predchádzajúca strana: Ako odstrániť klávesnicu na obrazovke z pracovnej plochy
• Ďalšia strana: Ako vytvoriť vstupenky do tomboly na 10 na stránku Template