Cara Menyalin Data dari Excel ke PowerPoint Secara Otomatis dengan VBA Macro

Jika Anda ingin mempercepat transfer data dari workbook Excel ke presentasi PowerPoint, VBA (Visual Basic for Applications) adalah solusi yang tepat. Dengan menulis macro, Anda dapat menyimpan rangkaian perintah yang dapat dijalankan berulang kali hanya dengan satu klik.

Langkah-Langkah

1. Siapkan File Excel

• Buka Excel dan ketik data berikut:
A1: Alan
A2: Daniel
A3: Kitzia
A4: Oscar
A5: Yarexli
• Simpan file sebagai ExcelFile.xlsx di drive C: (Ctrl + S).
• Tutup Excel.

2. Aktifkan Tab Developer di PowerPoint

• Buka PowerPoint, pilih tab Developer (jika belum muncul, aktifkan melalui File → Options → Customize Ribbon).
• Klik Macros, ketik copyFromExcel pada kotak Macro Name, lalu klik Create.

3. Tambahkan Referensi ke Excel Library

• Di jendela VBA, pilih Tools → References.
• Centang Microsoft Excel XX.0 Object Library (XX sesuai versi Office).
• Klik OK.

4. Tulis Kode VBA

Copy dan tempel kode berikut di jendela editor:

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

5. Inisialisasi Objek

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)

6. Baca Data dari Excel

Dim i As Integer
For i = 1 To 5
    dataReadArray(i - 1) = sourceSheet.Range("A" & i).Value
Next i

7. Tambahkan Data ke Slide Baru

newSlide.Shapes(1).TextFrame.TextRange.Text = "Data copied from Excel"
newSlide.Shapes(2).TextFrame.TextRange.Text = Join(dataReadArray, vbCrLf)

8. Tutup Workbook

sourceBook.Close False
sourceXL.Quit
Set sourceXL = Nothing

9. Jalankan Macro

Kembali ke PowerPoint, klik Macros, pilih copyFromExcel, lalu klik Run. Slide baru akan muncul dengan data yang disalin dari Excel.