Object Library " en klik op "OK . "
Kopieer 3 en plak de volgende aan de variabelen die je gaat gebruiken te maken
Dim sourceXL
Zoals Excel.Application
Dim bronnenboek
Zoals Excel.Workbook
Dim sourceSheet
Zoals Excel.Worksheet
Dim : de gegevens uit Excel kopiëren dataReadArray ( 10 ) als Koord
Dim myPress
Zoals Presentatie
Dim newSlide
Zoals Slide
Set waarden 4 aan de object-variabelen :
Set
sourceXL = Excel.Application
Set bronnenboek
= sourceXL.Workbooks.Open ( " G : \\ ExcelFile.xlsx " ) op Twitter
Set sourceSheet = sourceBook.Sheets ( 1 ) op
set myPres = ActivePresentation
set newSlide = myPres.Slides.Add
( Index : = myPres.Slides.Count + 1 , Indeling: = ppLayoutText )
5
Lees de gegevens in het Excel-bestand en sla het op in een string -array : .
sourceSheet.Range
( " A1 " ) Selecteer
dataReadArray
( 0 ) = sourceSheet.Range ( " A1 " ) Value
.
sourceSheet.Range ( " A2 " ) . Selecteer
dataReadArray
( 1 ) = sourceSheet.Range ( " A2 " ) . Value
sourceSheet.Range
( " A3 " ) . Selecteer
dataReadArray
( 2 ) = sourceSheet.Range ( " A3 " ) . Value
sourceSheet.Range
( " A4 " ) . Selecteer
dataReadArray
( 3 ) = sourceSheet . range ( " A4 " ) . Value
sourceSheet.Range
( " A5 " ) . Selecteer
dataReadArray
( 4 ) = sourceSheet.Range ( " A5 " ) . Value
< br > 6
Voeg de gegevens van de String array om een nieuwe dia in uw huidige presentatie : .
newSlide.Shapes
( 1 ) TextFrame.TextRange = "Gegevens gekopieerd van Excel "
newSlide.Shapes ( 2 ) . TextFrame.TextRange = dataReadArray ( 0 ) & vbNewLine & _
dataReadArray
( 1 ) & vbNewLine & _
dataReadArray
( 2 ) & vbNewLine & _
dataReadArray ( 3 ) & vbNewLine & _
dataReadArray
( 4 ) & vbNewLine
7
Sluit de werkmap :
sourceBook.Close
< br >
Schakel naar het PowerPoint-venster en 8 op " Macro's . " Klik op " Uitvoeren " om de " copyFromExcel " macro uit te voeren en voeg een nieuwe dia met de gegevens gekopieerd van het Excel- bestand dat u hebt gemaakt in stap 1 .
