Cum să copiezi automat din Excel în PowerPoint cu un macro VBA

Dacă vrei să transferi rapid informații dintr-un fișier Excel către o prezentare PowerPoint, soluția este un macro VBA. Acesta permite automatizarea copiării datelor și poate fi activat cu un singur clic.

Pasul 1 – Pregătește fișierul Excel

Deschide Excel, introdu următoarele valori:

• A1: Alan
• A2: Daniel
• A3: Kitzia
• A4: Oscar
• A5: Yarexli

Salvează fișierul ca C:\ExcelFile.xlsx și închide Excel.

Pasul 2 – Configurează PowerPoint pentru macro

1. În PowerPoint, accesează fila Developer și click pe Macros. 2. Introdu copyFromExcel ca nume macro și apasă Create. 3. În editorul VBA, mergi la Tools → References și bifează Microsoft Excel xx.x Object Library (unde xx.x este versiunea ta de Office). Confirmă cu OK.

Pasul 3 – Definirea variabilelor

În editor, adaugă următorul bloc de cod pentru a declara variabilele:

Dim sourceXL As Excel.Application
Dim sourceBook As Excel.Workbook
Dim sourceSheet As Excel.Worksheet
Dim dataReadArray(10) As String
Dim myPres As Presentation
Dim newSlide As Slide

Pasul 4 – Inițializează obiectele

Setează valorile variabilelor:

Set sourceXL = New Excel.Application
Set sourceBook = sourceXL.Workbooks.Open("C:\ExcelFile.xlsx")
Set sourceSheet = sourceBook.Sheets(1)
Set myPres = ActivePresentation
Set newSlide = myPres.Slides.Add(myPres.Slides.Count + 1, ppLayoutText)

Pasul 5 – Citește datele din Excel

Transferă conținutul celulelor A1–A5 într-un array de șiruri:

dataReadArray(0) = sourceSheet.Range("A1").Value
dataReadArray(1) = sourceSheet.Range("A2").Value
dataReadArray(2) = sourceSheet.Range("A3").Value
dataReadArray(3) = sourceSheet.Range("A4").Value
dataReadArray(4) = sourceSheet.Range("A5").Value

Pasul 6 – Adaugă datele pe o slide nouă

Completează slide-ul cu titlul și conținutul citit:

newSlide.Shapes(1).TextFrame.TextRange.Text = "Date copiate din Excel"
newSlide.Shapes(2).TextFrame.TextRange.Text = dataReadArray(0) & vbNewLine & _
                                           dataReadArray(1) & vbNewLine & _
                                           dataReadArray(2) & vbNewLine & _
                                           dataReadArray(3) & vbNewLine & _
                                           dataReadArray(4)

Pasul 7 – Închide fișierul Excel

Închide workbook-ul și eliberează obiectele:

sourceBook.Close
sourceXL.Quit
Set sourceSheet = Nothing
Set sourceBook = Nothing
Set sourceXL = Nothing

În PowerPoint, apasă Macros → Run pentru a executa macro-ul copyFromExcel și pentru a genera slide-ul cu datele din Excel.