Automatisch kopiëren vanuit Excel naar PowerPoint met behulp van een VBA-Macro 1

Automatisch kopiëren vanuit Excel naar PowerPoint met behulp van een VBA-Macro 1


Als u ooit versnellen de overdracht van gegevens uit een Microsoft Excel-werkmap naar Microsoft PowerPoint-presentatie wilde, is vervolgens met behulp van een macro en Visual Basic for Applications de weg te gaan. VBA is een programmeertaal die werkzaamheden in loondienst in Microsoft Office-toepassingen om processen zoals het kopiëren van gegevens uit Excel te automatiseren. Een macro kunt u een set instructies die u kunt uitvoeren over en weer opslaan met een klik van een knoop.

Instructies

1

Start Excel, typ "Alan" in "A1," "Daniel" in "A2," "Kitzia" in "A3," "Oscar" in "A4" en "Yarexli" in "A5." Druk op "CTRL" en "S" Sla de werkmap in "C:\" als "ExcelFile.xlsx." Sluit Excel.

2

PowerPoint start, klik op het tabblad 'Developer' en klik op "Macro's" ter lancering van het macrovenster voor het dialoogvenster. Typ "copyFromExcel" onder de naam van de Macro en klik op de knop "Create". Klik op het menu "Extra" en klik op "Verwijzingen" om te starten van het dialoogvenster verwijzingen. Scroll naar beneden en vink het vakje naast "Microsoft Excel < versienummer > Object Library" en klik op 'OK'.

3

Kopieer en plak het volgende als u wilt maken van de variabelen die u gebruiken zal om te kopiëren van de gegevens vanuit Excel:

Dim sourceXL As Excel.Application

Dim sourceBook As Excel.Workbook

Dim sourceSheet As Excel.Worksheet

Dim dataReadArray(10) As String

Dim myPress As Presentation

Dim newSlide As Slide4

Stel de waarden naar de objectvariabelen:

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(Index:=myPres.Slides.Count + 1, Layout:=ppLayoutText)5

Lees de gegevens in het Excel bestand en opslaan in een String-matrix:

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").Value6

De gegevens uit de tekenreeksmatrix toevoegen aan een nieuwe dia in de huidige presentatie:

newSlide.Shapes(1).TextFrame.TextRange = "Data copied from Excel"

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

dataReadArray(1) & vbNewLine & _

dataReadArray(2) & vbNewLine & _

dataReadArray(3) & vbNewLine & _

dataReadArray(4) & vbNewLine7

Sluit de werkmap:

sourceBook.Close8

Schakel over naar het PowerPoint-venster en klik op "Macro's." Klik op "Uitvoeren" om de "copyFromExcel" macro uitvoert en een nieuwe dia toevoegen met de gegevens gekopieerd van het Excel-bestand dat u in stap 1 hebt gemaakt.