Nwlapcug.com


Come copiare automaticamente da Excel a PowerPoint utilizzando una Macro VBA

Come copiare automaticamente da Excel a PowerPoint utilizzando una Macro VBA


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 Slide4

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").Value6

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) & vbNewLine7

Chiudere la cartella di lavoro:

sourceBook.Close8

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.