Se sempre voluto accelerare il trasferimento dei dati da una cartella di lavoro di Microsoft Excel per la presentazione di Microsoft PowerPoint, quindi utilizzando una macro e Visual Basic Applications Edition è il modo per andare. VBA è un linguaggio utilizzato in applicazioni di Microsoft Office per automatizzare i processi quali la copia di dati da Excel di programmazione. Una macro consente di salvare un insieme di istruzioni che è possibile eseguire più e più volte con un clic di un pulsante.
Istruzioni
1
Avviare Excel, digitare "Alan" in "A1", "Daniel" in "A2," "Kitzia" in "A3", "Oscar" in "A4" e "Yarexli" in "A5". Premere "CTRL" e "S" per salvare la cartella di lavoro in "C:\" come "ExcelFile.xlsx." Chiudere Excel.
2
Avviare PowerPoint, scegliere la scheda "Sviluppo" e fare clic su "Macro" per avviare la finestra di dialogo Macro. Digitare "copyFromExcel" sotto il nome di Macro e fare clic sul pulsante "Crea". Fare clic sul menu "Strumenti" e scegliere "Riferimenti" per lanciare la finestra di dialogo riferimenti. Scorrere verso il basso e seleziona la casella accanto a "Microsoft Excel < numero versione > Object Library" e fare clic su "OK".
3
Copiare e incollare il comando seguente per creare le variabili che si utilizzerà per copiare i dati da 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
4
Impostare i valori per le variabili di oggetto:
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
Leggere i dati in Excel il file e memorizzarlo in una matrice di stringhe:
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
6
Consente di aggiungere una nuova diapositiva nella presentazione corrente i dati dalla matrice di stringhe:
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
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 di Excel che è stato creato nel passaggio 1.