Ako automaticky skopírovať z programu Excel do programu PowerPoint pomocou VBA makier

Ak ste niekedy chceli urýchliť prenos dát zo zošita programu Microsoft Excel do prezentácie programu Microsoft PowerPoint , potom pomocou makier a jazyka Visual Basic for Applications je spôsob , ako ísť . VBA je programovací jazyk používa v programoch balíka Microsoft Office pre automatizáciu procesov , ako je kopírovanie dát z Excelu . Makro vám umožňuje uložiť súbor inštrukcií , ktoré môžete vykonať znova a znova s kliknutím na tlačidlo . Návod dovolená 1

spustení programu Excel , zadajte " Alan " v " A1 " , " Daniel " v " A2 " , " Kitzia " v " A3 " , " Oscar " v " A4 " a " Yarexli " v " A5 " . Stlačením tlačidla " CTRL " a " S " pre uloženie zošita v " C : \\ " ako " ExcelFile.xlsx . " Ukončite program Excel .
2

Spustite aplikáciu PowerPoint , kliknite na kartu " Vývojár " a kliknite na " makrá " spustíte dialógové okno Makro . Zadajte " copyFromExcel " pod názov makra a kliknite na tlačidlo " Vytvoriť " . Kliknite na menu " Nástroje " a kliknite na " Odkazy " sa spustí dialógové okno pre odkazy . Prejdite dole a zaškrtnite políčko vedľa " Microsoft Excel Object Library " a kliknite na " OK " .
3

Skopírujte a vložte nasledujúci vytvárať premenné , ktoré budete používať kopírovať dáta z programu Excel :

Dim sourceXL Ako Excel.Application

Dim Sourcebook Ako Excel.Workbook

Dim sourceSheet Ako Excel.Worksheet

Dim dataReadArray ( 10 ) As String Dim

myPress ako prezentácia

Dim newSlide ako Slide
4

Nastavené hodnoty do premennej objektu :

Set sourceXL = Excel.Application

Set Sourcebook = sourceXL.Workbooks.Open ( " G : \\ ExcelFile.xlsx " )

Set sourceSheet = sourceBook.Sheets ( 1 )

nastaviť myPres = ActivePresentation

Set newSlide = myPres.Slides.Add ( Index : = myPres.Slides.Count + 1 , Dispozícia : = ppLayoutText )
5

Prečítajte si dáta v súbor a uložte ho do poľa reťazcov Excel : ..

sourceSheet.Range ( " A1 " ) Vyberte klipart

dataReadArray ( 0 ) = sourceSheet.Range ( " A1 " ) Value

sourceSheet.Range ( " A2 " ) . Výber

dataReadArray ( 1 ) = sourceSheet.Range ( " A2 " ) . Value celým

sourceSheet.Range ( " A3 " ) . Výber celým

dataReadArray ( 2 ) = sourceSheet.Range ( " A3 " ) . Value celým

sourceSheet.Range ( " A4 " ) . Výber

dataReadArray ( 3 ) = sourceSheet . range ( " A4 " ) . Value celým

sourceSheet.Range ( " A5 " ) . Výber

dataReadArray ( 4 ) = sourceSheet.Range ( " A5 " ) . Value celým
6

Pridať dáta z poľa reťazcov na nový snímku v aktuálnej prezentácii :

newSlide.Shapes ( 1 ) TextFrame.TextRange = " dáta skopírované z Excelu "

. newSlide.Shapes ( 2 ) . TextFrame.TextRange = dataReadArray ( 0 ) & vbNewLine & _

dataReadArray ( 1 ) a vbNewLine & _

dataReadArray ( 2 ) a vbNewLine & _

dataReadArray ( 3 ) a vbNewLine & _

dataReadArray ( 4 ) a vbNewLine
7

Zatvorte zošit :

sourceBook.Close

8

Prepnite sa do okna programu PowerPoint a potom kliknite na tlačidlo " makrá . " Kliknite na tlačidlo " Spustiť " spustiť " copyFromExcel " makro a pridať novú snímku s dátami skopírované z programu Excel súbor , ktorý ste vytvorili v kroku 1.

• Predchádzajúca strana: Visual Basic 6.0 SQL Tutorial 
• Ďalšia strana: Ako vypočítať Priestupný rok s Microsoft Visual Basic