Hur man automatiskt kopierar från Excel till PowerPoint med ett VBA-makro

Om du någonsin vill snabba upp överföringen av data från ett Microsoft Excel-ark till din PowerPoint-presentation är ett VBA-makro rätt väg. VBA är ett programmeringsspråk som används i Microsoft Office-program för att automatisera processer som att kopiera data från Excel. Ett makro låter dig spara en uppsättning instruktioner som du kan köra om och om igen med ett knapptryck.

Steg 1

Starta Excel, skriv "Alan" i cell A1, "Daniel" i A2, "Kitzia" i A3, "Oscar" i A4 och "Yarexli" i A5. Tryck Ctrl + S för att spara arbetsboken som C:\ExcelFile.xlsx. Stäng Excel.

Steg 2

Starta PowerPoint, gå till fliken Utvecklare och klicka på Makron för att öppna dialogrutan Makron. Skriv "copyFromExcel" i fältet Makronamn och klicka på Skapa. Gå till menyn Verktyg → Referenser för att öppna dialogrutan Referenser. Markera rutan bredvid Microsoft Excel Object Library och klicka på OK.

Steg 3

Kopiera och klistra in följande kod för att deklarera de variabler du kommer att använda för att läsa data från Excel:
Dim sourceXL As Excel.Application
Dim sourceBook As Excel.Workbook
Dim sourceSheet As Excel.Worksheet
Dim dataReadArray(10) As String
Dim myPres As Presentation
Dim newSlide As Slide

Steg 4

Tilldela värden till objektvariablerna:
Set sourceXL = Excel.Application
Set sourceBook = sourceXL.Workbooks.Open("C:\ExcelFile.xlsx")
Set sourceSheet = sourceBook.Sheets(1)
Set myPres = ActivePresentation
Set newSlide = myPres.Slides.Add(Index:=myPres.Slides.Count + 1, Layout:=ppLayoutText)

Steg 5

Läs in data från Excel-arket och lagra den i en strängarray:
sourceSheet.Range("A1").Select dataReadArray(0) = sourceSheet.Range("A1").Value
sourceSheet.Range("A2").Select dataReadArray(1) = sourceSheet.Range("A2").Value
sourceSheet.Range("A3").Select dataReadArray(2) = sourceSheet.Range("A3").Value
sourceSheet.Range("A4").Select dataReadArray(3) = sourceSheet.Range("A4").Value
sourceSheet.Range("A5").Select dataReadArray(4) = sourceSheet.Range("A5").Value

Steg 6

Lägg till datan från strängarrayen på en ny bild i din nuvarande presentation:
newSlide.Shapes(1).TextFrame.TextRange = "Data kopierad från Excel"
newSlide.Shapes(2).TextFrame.TextRange = dataReadArray(0) & vbNewLine & _
dataReadArray(1) & vbNewLine & _
dataReadArray(2) & vbNewLine & _
dataReadArray(3) & vbNewLine & _
dataReadArray(4) & vbNewLine

Steg 7

Stäng arbetsboken:
sourceBook.Close

Byt till PowerPoint-fönstret och klicka på Makron. Klicka på Starta för att köra makrot "copyFromExcel" och skapa en ny bild med data från Excel-arket du skapade i steg 1.