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

Pokud jste někdy chtěli urychlit přenos dat ze sešitu aplikace Microsoft Excel do prezentace aplikace PowerPoint, pak pomocí makra a jazyka pro aplikace je jít. VBA je počítačový programovací jazyk používaný v aplikacích Microsoft Office k automatizaci procesů, jako je kopírování dat z aplikace Excel. Makro vám umožní uložit sadu instrukcí, které můžete znovu a znovu spustit kliknutím na tlačítko.

Krok 1
Spuštění aplikace Excel, zadejte "Alan" v "A1, "" Daniel "v" A2, "" Kitzia "v" A3 "," Oscar "v" A4 "a" Yarexli "v" A5. " Stiskněte "CTRL" a "S" uložit sešit v "C:" jako "ExcelFile.xlsx." Zavřete Excel.

Krok 2
Spusťte aplikaci PowerPoint, klepněte na kartu "Vývojář" a klepněte na tlačítko "Makra" pro spuštění dialogového okna Makro. Zadejte "copyFromExcel" pod název makra a klikněte na tlačítko "Vytvořit". Klikněte na nabídku "Nástroje" a klikněte na "Odkazy". Otevře se dialogové okno Odkazy. Přejděte dolů a zaškrtněte políčko vedle "Knihovna objektů aplikace Microsoft Excel" a klepněte na tlačítko "OK".

Krok 3
Zkopírujte a vložte následující položky a vytvořte proměnné, které použijete ke kopírování dat z aplikace Excel: Dim sourceXL jako Excel.Application Dim sourceBook jako Excel.Workbook Dim sourceSheet Jako Excel.Worksheet Dim dataReadArray (10) As String Dim myPress jako prezentace Dim newSlide jako snímek

Krok 4
Nastavení hodnot proměnných objektu : Nastavit sourceXL = Excel.Application Nastavit sourceBook = sourceXL.Workbooks.Open ("G: ExcelFile.xlsx") Nastavit sourceSheet = sourceBook.Sheets (1) Nastavit myPres = ActivePresentation Set newSlide = myPres.Slides.Add (Index: = myPres.Slides.Count + 1, Layout: = ppLayoutText)

Krok 5
Přečtěte si data v souboru Excel a uložte je do pole String: sourceSheet.Range ("A1") Vyberte dataReadArray (0) = sourceSheet.Range ("A1") Hodnota sourceSheet.Range ("A2") Vyberte dataReadArray (1) = sourceSheet.Range ("A2") Hodnota sourceSheet.Range ("A3") Vyberte dataReadArray (2) = sou rceSheet.Range ("A3") Hodnota sourceSheet.Range ("A4") Vyberte dataReadArray (3) = sourceSheet.Range ("A4") Hodnota sourceSheet.Range ("A5") Vyberte dataReadArray (4) = sourceSheet.Range ("A5"). Hodnota

Krok 6
Přidat data z pole String do nového snímku v aktuální prezentaci: newSlide.Shapes (1) .TextFrame.TextRange = "Data zkopírovat z aplikace Excel "newSlide.Shapes (2) .TextFrame.TextRange = dataReadArray (0) & vbNewLine & _ dataReadArray (1) & vbNewLine & _ dataReadArray (2) & vbNewLine & _ dataReadArray (3) & vbNewLine & _ dataReadArray (3) & vbNewLine & _ dataReadArray (3) & vbNewLine & _ dataReadArray (3) ) & vbNewLine Review,

Krok 7
Zavřete sešit: sourceBook.Close
Přepněte do okna PowerPoint a klikněte na "Makra". Kliknutím na tlačítko Spustit spustíte makro "copyFromExcel" a přidáte nový snímek s daty zkopírovanými ze souboru aplikace Excel, který jste vytvořili v kroku 1.

URL:https://cs.whycomputer.com/Software/100101198.html