Hvis du noen gang ønsket å framskynde overføringen av data fra en Microsoft Excel-arbeidsbok til din Microsoft PowerPoint-presentasjon , deretter bruke en makro og Visual Basic for Applications er veien å gå . VBA er et programmeringsspråk ansatt i Microsoft Office-programmer til å automatisere prosesser som kopierer data fra Excel. En makro lar deg lagre et sett med instruksjoner som du kan utføre over og over igjen med et klikk på en knapp. Instruksjoner
en

Launch Excel , type " Alan" in " A1 ", " Daniel " i " A2 ", " Kitzia " i " A3 ", " Oscar" i "A4 " og " Yarexli " i " A5 ". Trykk "CTRL " og " S " for å lagre arbeidsboken i "C : \\" " . ExcelFile.xlsx " som Lukk Excel.
2

Launch PowerPoint , klikker du på " Developer " og klikk " makroer " for å starte Macro dialogvinduet. Type " copyFromExcel " nedenfor Macro navn og klikk på " Create "-knappen . Klikk på " Verktøy "-menyen og klikk på "Referanser " for å starte Referanser dialogvinduet. Scroll ned og merk av for " Microsoft Excel Object Library " og klikk " OK ".
3

Kopier og lim inn følgende for å opprette variablene du vil bruke å kopiere data fra Excel :

Dim sourceXL Som Excel.Application

Dim Sourcebook Som Excel.Workbook

Dim sourceSheet Som Excel.Worksheet

Dim dataReadArray ( 10 ) As String

Dim myPress Som Presentasjon

Dim newSlide Som Slide
4

verdier til objekt variabler : en

Set sourceXL = Excel.Application

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

Set sourceSheet = sourceBook.Sheets ( 1 )

Set myPres = ActivePresentation

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

Les dataene i Excel -filen og lagre den i en String matrise: .

sourceSheet.Range ( "A1" ) Velg

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

sourceSheet.Range ( " A2" ) . Velg

dataReadArray ( 1 ) = sourceSheet.Range ( " A2" ) . Verdi

sourceSheet.Range ( " A3" ) . Velg

dataReadArray ( 2 ) = sourceSheet.Range ( " A3" ) . Verdi

sourceSheet.Range ( "A4 ") . Velg

dataReadArray ( 3 ) = sourceSheet . Range (" A4" ) . Verdi

sourceSheet.Range ( " A5 ") . Velg

dataReadArray ( 4 ) = sourceSheet.Range ( " A5 ") . Verdi

6

Legg dataene fra String array til et nytt lysbilde i gjeldende presentasjon : .

newSlide.Shapes ( 1 ) TextFrame.TextRange = "Data kopiert fra Excel "

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

dataReadArray ( 1 ) og vbNewLine & _

dataReadArray ( 2 ) og vbNewLine & _

dataReadArray ( 3) og vbNewLine & _

dataReadArray ( 4) og vbNewLine
7

Lukk arbeidsbok:

sourceBook.Close

8

Bytt til PowerPoint-vinduet og klikk " Makroer ". Klikk "Kjør " for å kjøre " copyFromExcel " makro og legge til et nytt lysbilde med dataene som kopieres fra Excel-filen du opprettet i trinn 1. .