Hur du automatiskt kopiera från Excel till PowerPoint Använda ett VBA Macro

Om du någonsin velat påskynda överföringen av data från en Microsoft Excel-arbetsbok till en Microsoft PowerPoint-presentation , sedan använda ett makro och Visual Basic for Applications är vägen att gå . VBA är en dator programmeringsspråk som används i Microsoft Office-program för att automatisera processer såsom kopiera data från Excel . Ett makro kan du spara en uppsättning instruktioner som du kan köra om och om igen med ett klick på en knapp . Instruktioner
1

Launch Excel , typ " Alan " i " A1 ", " Daniel " i " A2 ", " Kitzia " i " A3 ", " Oscar " i " A4 " och " Yarexli " i " A5 ". Tryck på " Ctrl " och " S " för att spara arbetsboken i " C : \\ " " . ExcelFile.xlsx " som Stäng Excel .
2

Launch PowerPoint , klicka på " Utvecklare " -fliken och klicka på " Makron " för att starta dialogrutan Makro fönstret . Typ " copyFromExcel " nedan Macro namn och klicka på knappen "Skapa" . Klicka på " Verktyg " -menyn och klicka på "Referenser " för att starta Referenser dialogrutan . Rulla nedåt och markera rutan bredvid " Microsoft Excel Object Library " och klicka " OK ".
3

Kopiera och klistra in följande för att skapa de variabler som du kommer att använda att kopiera data från Excel :

Dim sourceXL som Excel.Application

Dim Sourcebook som Excel.Workbook

Dim sourceSheet som Excel.Worksheet

Dim dataReadArray ( 10 ) As String

Dim myPress som Presentation

Dim newSlide som Slide
4

Inställda värden till objekt variabler :

Set sourceXL = Excel.Application

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

Set sourceSheet = sourceBook.Sheets ( 1 ) katalog

Set myPres = ActivePresentation

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

Läs data i Excel -filen och spara den i en String array : .

sourceSheet.Range ( " A1 " ) Välj

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

sourceSheet.Range ( "A2" ) . Välj

dataReadArray ( 1 ) = sourceSheet.Range ( "A2" ) . Värde

sourceSheet.Range ( " A3 " ) . Välj

dataReadArray ( 2 ) = sourceSheet.Range ( " A3 " ) . Värde

sourceSheet.Range ( " A4" ) . Välj

dataReadArray ( 3 ) = sourceSheet . Range (" A4" ) . Värde

sourceSheet.Range ( " A5 " ) . Välj

dataReadArray ( 4 ) = sourceSheet.Range ( " A5 " ) . Värde

6

Lägg data från String array till en ny bild i din nuvarande presentation : .

newSlide.Shapes ( 1 ) TextFrame.TextRange = " Data kopieras från Excel "

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

dataReadArray ( 1 ) & vbNewLine & _

dataReadArray ( 2 ) & vbNewLine & _

dataReadArray ( 3 ) & vbNewLine & _

dataReadArray ( 4 ) & vbNewLine
7

Stäng arbetsboken :

sourceBook.Close

8

Växla till PowerPoint- fönstret och klicka på " Makron . " Klicka på "Kör " för att köra " copyFromExcel " makro och lägga till en ny bild med som kopierats från Excel -filen du skapade i steg 1 .