Hvis du nogensinde ønsket at fremskynde overførslen af ​​data fra en Microsoft Excel-projektmappe til din Microsoft PowerPoint-præsentation , og derefter bruge en makro og Visual Basic for Applications er vejen at gå. VBA er en computer programmeringssprog ansat i Microsoft Office-programmer til at automatisere processer såsom kopiere data fra Excel. En makro kan du gemme et sæt af instruktioner, som du kan udføre igen og igen med et klik på en knap. Instruktioner
1

Launch Excel , skriv " Alan " i " A1 ", " Daniel " i " A2 ", " Kitzia " i " A3 ", " Oscar " i " A4 " og " Yarexli " i " A5 ". Tryk på " CTRL " og "S " for at gemme projektmappen i "C: \\ " " . ExcelFile.xlsx " som Luk Excel.
2

Launch PowerPoint , klik på " Udvikler " fanen og klik på " makroer" at lancere dialogen Makro -vinduet. Type " copyFromExcel " nedenfor Macro Navn og klik på knappen "Opret" . Klik på menuen "Funktioner" og klik på "Referencer" til at lancere Referencer dialogvinduet . Rul ned og marker afkrydsningsfeltet ved siden af ​​" Microsoft Excel Object Library " og klik " OK".
3

Kopier og indsæt følgende for at oprette de variabler, du vil bruge at 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 Præsentation

Dim newSlide Som Slide
4

Indstillingsværdier til objektvariabler : Hej

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

Læs dataene i Excel -fil og gemme det i en String matrix: .

sourceSheet.Range ( "A1" ) Vælg

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

sourceSheet.Range ( " A2 "). Vælg

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

sourceSheet.Range ( " A3 "). Vælg

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

sourceSheet.Range ( " A4 "). Vælg

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

sourceSheet.Range ( " A5 "). Vælg

dataReadArray (4) = sourceSheet.Range ( " A5 "). Value
< br > 6.

Tilføj data fra String array til et nyt dias i din nuværende præsentation: .

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

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

dataReadArray (1) & vbNewLine & _

dataReadArray (2) & vbNewLine & _

dataReadArray (3) & vbNewLine & _

dataReadArray (4) & vbNewLine
7

Luk projektmappen : Hej

sourceBook.Close
< br > 8

Skift til PowerPoint-vinduet og klik på " Makroer ". Klik på " Kør" for at køre " copyFromExcel " makro og føje et nyt dias med de data, der kopieres fra Excel-fil , du oprettede i trin 1. .