Come copiare automaticamente da Excel a PowerPoint Utilizzo di una macro VBA

Se avete sempre voluto per accelerare il trasferimento di dati da una cartella di lavoro per la presentazione di Microsoft PowerPoint , quindi utilizzando una macro e Visual Basic, Applications Edition è la strada da percorrere . VBA è un linguaggio di programmazione di computer impiegato in applicazioni di Microsoft Office per automatizzare processi come la copia di dati da Excel . Una macro consente di salvare un set di istruzioni che è possibile eseguire più e più volte con un clic di un pulsante . Istruzioni
1

lancio di Excel , digitare " Alan " a " A1 ", " Daniel" a " A2 ", " Kitzia " a " A3 ", " Oscar " in " A4 " e " Yarexli " in " A5 ". Premere il tasto " CTRL " e " S " per salvare la cartella di lavoro in " C : \\ ", come " ExcelFile.xlsx . " Chiudere Excel .
2

lancio di PowerPoint , fare clic sulla scheda "Sviluppatore " e cliccare su "Macro " per avviare la finestra di dialogo Macro . Tipo " copyFromExcel " sotto Nome macro e fare clic sul pulsante "Crea" . Fai clic sul menu "Strumenti " e cliccare su "Riferimenti" per avviare la finestra di dialogo Riferimenti. Scorrere verso il basso e selezionare la casella accanto a " Microsoft Excel Object Library " e fare clic su " OK ".
3

Copia e incolla il seguente per creare le variabili che si intende utilizzare per copiare i dati da Excel :

Dim sourceXL Come Excel.Application

Dim Sourcebook Come Excel.Workbook

Dim sourceSheet Come Excel.Worksheet

Dim dataReadArray ( 10) As String Dim

myPress Come Presentazione

Dim newSlide come presentazione
4 Impostare i valori

alle variabili oggetto :

sourceXL = Excel.Application

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

sourceSheet = sourceBook.Sheets ( 1 ) per

Set myPres = ActivePresentation

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

leggere i dati nella file di Excel e di conservarlo in un array di stringhe : .

sourceSheet.Range ( " A1 " ) Selezionare

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

sourceSheet.Range ( "A2" ) . Seleziona

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

sourceSheet.Range ( "A3" ) . Selezionare

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

sourceSheet.Range ( "A4" ) . Seleziona

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

sourceSheet.Range ( " A5" ) . Seleziona

dataReadArray ( 4) = sourceSheet.Range ( " A5" ) . Valore

6

Aggiungi i dati dalla matrice String a una nuova diapositiva nella presentazione corrente : .

newSlide.Shapes ( 1 ) TextFrame.TextRange = " i dati copiati da Excel "

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

dataReadArray ( 1) & vbNewLine & _

dataReadArray ( 2) & vbNewLine & _

dataReadArray ( 3) & vbNewLine & _

dataReadArray ( 4) & vbNewLine
7

Chiudere la cartella di lavoro :

sourceBook.Close

8

Passare alla finestra di PowerPoint e fare clic su " Macro ". Fare clic su "Esegui" per eseguire la macro " copyFromExcel " e aggiungere una nuova diapositiva con i dati copiati dal file Excel creato nel passaggio 1 .

• Visual Basic 6.0 di SQL Tutorial 
• Come calcolare anno bisestile con Microsoft Visual Basic