Wenn Sie sich jemals gewünscht, um die Übertragung von Daten aus einer Microsoft Excel-Arbeitsmappe , um Ihre Microsoft PowerPoint-Präsentation zu beschleunigen, dann mit Hilfe eines Makros und Visual Basic für Applikationen ist der Weg zu gehen . VBA ist eine Programmiersprache in Microsoft Office-Anwendungen eingesetzt werden, um Prozesse wie das Kopieren von Daten aus Excel zu automatisieren. Ein Makro können Sie eine Reihe von Anweisungen, die Sie ausführen können über und immer wieder mit einem Klick auf eine Schaltfläche zu speichern. Anleitung
1

starten Excel , Typ " Alan " in " A1 ", " Daniel " in " A2 ", " Kitzia " in " A3 ", " Oscar " in " A4 " und " Yarexli " in " A5 ". Drücken Sie "Strg " und " S" , um die Arbeitsmappe in "C: \\ " retten " . ExcelFile.xlsx " als Schließen Sie Excel.
2

Start PowerPoint , klicken Sie auf die Registerkarte "Entwicklertools" und klicken Sie auf "Makros ", um das Dialogfenster Makro zu starten. Type " copyFromExcel " unter Makroname und klicken Sie auf die Schaltfläche "Erstellen" . Klicken Sie auf das Menü "Extras" und dann auf " Referenzen ", um das Dialogfeld Verweise Fenster starten. Blättern Sie nach unten und aktivieren Sie das Kontrollkästchen neben " Microsoft Excel Object Library" und klicken Sie auf "OK".
3

Kopieren Sie den folgenden auf die Variablen , die Sie verwenden erstellen

Dim sourceXL Wie Excel.Application

Dim Sourcebook Wie Excel.Workbook

Dim sourceSheet Wie Excel.Worksheet

Dim : um die Daten aus Excel kopieren dataReadArray (10 ) As String Dim

myPress Als Präsentation

Dim newSlide Als Slide
4

Set Werte zu den Variablen des Objekts :

Set sourceXL = Excel.Application

Set Sourcebook = sourceXL.Workbooks.Open ("G : \\ ExcelFile.xlsx " )

Set sourceSheet = sourceBook.Sheets ( 1) german

Set myPres = ActivePresentation

Set newSlide = myPres.Slides.Add ( Index: = myPres.Slides.Count + 1 , Layout : = ppLayoutText )
5

Lesen Sie die Daten in die Excel -Datei und speichern sie in einem String-Array : .

sourceSheet.Range ( "A1") auswählen

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

sourceSheet.Range ( "A2" ) . Wählen

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

sourceSheet.Range ( "A3" ) . Wählen

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

sourceSheet.Range ( "A4" ) . Wählen

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

sourceSheet.Range ( "A5" ) . Wählen

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

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

newSlide.Shapes (1) TextFrame.TextRange = "Daten aus Excel kopiert "

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

dataReadArray (1) & vbNewLine & _

dataReadArray (2) & vbNewLine & _

dataReadArray (3) & vbNewLine & _

dataReadArray (4) & vbNewLine
7

Schließen Sie die Arbeitsmappe :

sourceBook.Close

8

wechseln Sie in das PowerPoint-Fenster und klicken Sie auf "Makros ". Klicken Sie auf " Ausführen", um die " copyFromExcel " Makro ausführen , und fügen Sie eine neue Folie mit den Daten aus der Excel- Datei, die Sie in Schritt 1 erstellt kopiert.