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

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.

• 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.

• 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-objectbibliotheek ' en klik op 'OK'.

• 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 Slide 

• 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) 

• 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").Value 

• 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) & vbNewLine 

• Sluit de werkmap:

   sourceBook.Close 

• 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.