Jak automaticky kopírovat z aplikace Excel do aplikace PowerPoint pomocí makra VBA

Krok 1

Proveďte aplikaci Excel, napište "Alan" v A1, "Daniel" v A2, "Kitzia" v A3, "Oscar" v A4 a "Yarexli" v A5. Stisknutím klávesy "Ctrl" a "S" uložíte sešit ve složce "C: \" jako "ExcelFile.xlsx". Zavřete aplikaci Excel

Krok 2

Spusťte program PowerPoint, klikněte na kartu "Vývojář" a klikněte na "Makra" a spusťte dialogové okno Makro. Napište "copyFromExcel" pod "Jméno makra" a klikněte na tlačítko "Vytvořit". Klikněte na nabídku "Nástroje" a stisknutím tlačítka "Předvolby" spusťte dialogové okno "Odkazy". Přejděte dolů a zaškrtněte políčko "Knihovna objektů Microsoft Excel" a klikněte na tlačítko "OK".

Krok 3

Zkopírujte a vložte následující a vytvořte proměnné, které použijete pro zkopírování dat z aplikace Excel:

Dim sourceXL Jako Excel.Application Dim zdrojBook Jako Excel.Workbook Dim sourceSheet Jako Excel.Worksheet Dim dataReadArray (10) Jako řetězec Dim myPress jako prezentace Dim newSlide As Slide

Krok 4

Upravte hodnoty objektových proměnných:

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

Krok 5

Přečtěte si data v souboru aplikace Excel a uložte je ve vektoru řetězce:

("A2") Hodnota sourceSheet.Range ("A2") Vyberte dataReadArray (0) = sourceSheet.Range ("A1" ("A3") Zvolte dataReadArray (2) = sourceSheet.Range ("A3") Hodnota sourceSheet.Range ("A4" sourceSheet.Range ("A5") Vyberte dataReadArray (4) = sourceSheet.Range ("A5") Hodnota

Krok 6

Přidejte data z řetězce vektoru do nového snímku v aktuální prezentaci:

newSlide.Shapes (1) .TextFrame.TextRange = "Data zkopírovaná z aplikace Excel" newSlide.Shapes (2) .TextFrame.TextRange = dataReadArray (0) & vbNewLine & _ dataReadArray (1) & vbNewLine & _ dataReadArray (2) & vbNewLine & _ dataReadArray (3) & vbNewLine & _ dataReadArray (4) & vbNewLine

Krok 7

Zavřete sešit:

sourceBook.Close

Krok 8

Přepněte do okna aplikace PowerPoint a klikněte na tlačítko "Makra". Klepnutím na tlačítko Spustit spusťte makro "copyFromExcel" a přidejte nový snímek s daty zkopírovanými ze souboru Excel vytvořeného v kroku 1.