Cara Menayangkan Slide Show PowerPoint dari Excel dengan Macro VBA

Membuka sebuah presentasi PowerPoint yang menarik dari Excel membuat proyek Excel Anda akan terkesan memiliki sebuah dinamika, namun membuka file saja tidak cukup jika ingin menampilkan isi dari file presentasi tersebut, slide show adalah cara yang tepat menayangkan isi file PowerPoint yang dapat Anda tentukan sendiri lama tayang untuk setiap slide-nya.

Sebut saja Anda mempunyai file PowerPoint di komputer Anda yang akan menayangkan slide show yaitu namafile.pptx.

Melalui macro VBA Anda bisa memutar slide PowerPoint dengan menggunakan statement slideshowsettings.Run. 

Adapun struktur With menunjukkan sebuah metode pengaturan waktu, seperti dalam kode macro di bawah ini kami akan contohkan cara mengatur sebuah properti yaitu advancetime menjadi selama lima detik untuk setiap slide yang akan ditampilkan, tanpa mengubah pengaturan transisi slide dalam file PowerPoint tersebut.

Langsung saja, silakan Anda ikuti langkah-langkah berikut ini:

1. Langkah pertama adalah membuka VBE dengan cara menekan tombol Alt+F11 pada keyboard.

2. Buka menu Insert > Module.

3. Ketik terlebih dahulu:

Sub BukaSlideShow()

4. Di bawahnya ketik contoh variabel A untuk aplikasi PowerPoint dan B untuk file-nya:

Dim A As Object, B As Object

5. Contoh variabel C untuk alamat folder dan D untuk nama file-nya:

Dim C As String, D As String

6. Tentukan alamat folder dan nama file PowerPoint di komputer Anda:

C = "C:\Alamat\File\Anda\"
D = "namafile.pptx"

7. Periksa apakah nama file benar-benar ada di alamat folder tersebut lalu berikan pemberitahuan jika tidak ditemukan maka macro akan ditutup:

If Dir(C & D) = "" Then
MsgBox _
"File PowerPoint " & D & vbCrLf & _
"tidak ditemukan dalam alamat folder" & vbCrLf & _
C & ".", _
vbInformation, "Maaf, File tidak ditemukan."
Exit Sub
End If

8. Mulai membuka aplikasi PowerPoint:

Set A = CreateObject("PowerPoint.Application")

9. Pastikan agar PowerPoint ditampilkan di layar:

A.Visible = msoTrue

10. Membuka file yang akan dijalankan slide show:

Set B = A.Presentations.Open(C & D)

11. Tetapkan lamanya setiap slide akan ditampilkan misalnya selama 5 detik:

With B.slides.Range.slideshowtransition
.advanceontime = True
.advancetime = 5
End With

12. Mulai jalankan presentasi:

B.slideshowsettings.Run

13. Jika presentasi slide show telah selesai, perintahkan macro untuk menyimpan file agar Anda tidak diminta untuk menyimpan file lagi saat menutup aplikasi:

B.Saved = True

14. Kalau mau, Anda bisa menambahkan juga statement A.Quit untuk menutup aplikasi PowerPoint.

15. Lepaskan memori sistem untuk variabel objek berikut:

Set B = Nothing
Set A = Nothing

Kode lengkapnya sebagai berikut:

Sub BukaSlideShow()
Dim A As Object, B As Object
Dim C As String, D As String
C = "C:\Alamat\File\Anda\"
D = "namafile.pptx"
If Dir(C & D) = "" Then
MsgBox _
"File PowerPoint " & D & vbCrLf & _
"tidak ditemukan dalam alamat folder" & vbCrLf & _
C & ".", _
vbInformation, "Maaf, File tidak ditemukan."
Exit Sub
End If
Set A = CreateObject("PowerPoint.Application")
A.Visible = msoTrue
Set B = A.Presentations.Open(C & D)
With B.slides.Range.slideshowtransition
.advanceontime = True
.advancetime = 5
End With
B.slideshowsettings.Run
B.Saved = True
Set B = Nothing
Set A = Nothing
End Sub

Demikian cara membuka slide show presentasi PowerPoint dari Excel melalui penyusunan kode macro VBA.

Silakan Anda coba praktekkan sendiri dan semoga bermanfaat.

Share :