Wie man automatisch von Excel in PowerPoint mithilfe eines VBA-Makros 1 Kopieren

Wenn Sie schon immer die Übertragung von Daten aus einer Microsoft Excel-Arbeitsmappe zu einer Microsoft PowerPoint-Präsentation zu beschleunigen wollten, ist das dann mittels eines Makros und Visual Basic für Anwendungen der Weg zu gehen. VBA ist eine Programmiersprache, die in Microsoft Office-Anwendungen automatisieren Sie Prozesse wie das Kopieren von Daten aus Excel beschäftigt. Ein Makro können Sie eine Reihe von Anweisungen, die Sie ausführen können, immer und immer wieder mit einem Klick auf eine Schaltfläche speichern.

Anweisungen

1 Starten Sie Excel, und geben Sie "Alan" in "A1", "Daniel" in "A2", "Kitzia" in "A3", "Oscar" in "A4" und "Yarexli" in "A5." Drücken Sie "Strg" und "S" zum Speichern der Arbeitsmappe "C:\", als "ExcelFile.xlsx." Beenden Sie Excel.

2 Starten Sie PowerPoint zu, klicken Sie auf die Registerkarte "Entwicklertools" und klicken Sie auf "Makros", um das Dialogfenster Makro zu starten. Geben Sie "CopyFromExcel" unter Makroname, und klicken Sie auf "Erstellen". Klicken Sie im Menü "Extras" und dann "Verweise", um das Dialogfenster Verweise zu starten. Blättern Sie nach unten und aktivieren Sie das Kontrollkästchen neben "Microsoft Excel < Versionsnummer > Object Library" und klicken Sie "OK".

3 Kopieren Sie und fügen Sie Folgendes ein, um die Variablen zu erstellen, die Sie verwenden werden, um die Daten aus Excel zu kopieren:

Dim SourceXL als 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

Legen Sie die Werte auf den Object-Variablen:

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

Lesen Sie die Daten in der Excel-Datei und speichern Sie es in ein String-Array:

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

Fügen Sie die Daten aus dem String-Array, um eine neue Folie in der aktuellen Präsentation:

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

Schließen Sie die Arbeitsmappe:

sourceBook.Close8

Wechseln Sie zu PowerPoint-Fensters, und klicken Sie auf "Makros". Klicken Sie auf "Ausführen", um führen Sie das Makro "CopyFromExcel" und fügen Sie eine neue Folie mit den Daten aus der Excel-Datei in Schritt 1 erstellte kopiert.