Bagaimana cara bekerja dengan Kotak Pesan dan Masukan di PowerPoint VBA?

Melalui komentar, saya telah melihat beberapa pertanyaan pembaca tentang cara bekerja dengan Input Visual Basic dan kotak Pesan di PowerPoint.

Dalam tutorial ini kami akan memberikan pengetahuan dasar yang sangat mendasar untuk membantu Anda menggunakan kemampuan tersebut saat mengotomatiskan pembuatan presentasi Anda.

Menyiapkan Tab Pengembang

Pertama, kita harus mengaktifkan lingkungan pengembang untuk PowerPoint. Ikuti tutorial ini untuk menyiapkan tab pengembangan Anda.

Di PowerPoint, buka menu Pengembang, dan tekan Visual Basic.

Di pohon Proyek, klik kanan presentasi Anda, tekan Sisipkan, lalu pilih Modul. Modul VBA baru akan dibuat, di sanalah Anda akan menulis kode.

Kotak Pesan di PowerPoint

Kotak pesan cukup jelas, tujuannya adalah untuk menampilkan beberapa informasi yang berguna kepada pengguna akhir. Tulis kode berikut di Modul Anda:

Sub simplemessagebox()
MsgBox ("This is a simple message box")
End Sub

Tekan F5 atau Run dan lihat hasilnya:

Contoh Kotak Pesan dan Masukan

Tidak seperti Kotak Pesan, kotak input digunakan untuk mendapatkan umpan balik dari pengguna. Mari kita lihat contoh di bawah ini. Script secara otomatis menyisipkan slide baru ke presentasi.

Inilah yang akan kami terapkan:

1. Pertama-tama kita akan meminta pengguna untuk menambahkan jumlah slide (menggunakan Kotak Input).
2. Kami kemudian akan memberi tahu pengguna tentang jumlah slide yang akan dibuat (menggunakan Kotak Pesan)
3. Terakhir, akan melanjutkan dan membuat slide secara terprogram.
4. Terakhir kita akan menyimpan presentasi yang dimodifikasi

Sub CreateSlidesMessage()

Dim NumSlides As Integer
Dim MsgResult As VbMsgBoxResult

' How many slides to create
NumSlides = InputBox("Enter number of slides to create", "Create Slides")

'User confirmation
MsgResult = MsgBox("Powerpoint will create " & NumSlides & " slides. Proceed?", vbApplicationModal, "Create Slides")

'create the slides
If MsgResult = vbOK Then
    For i = 1 To NumSlides
        Set NewSlide = ActivePresentation.Slides.Add(Index:=i + 1, Layout:=ppLayoutBlank)
    Next i
    'Save the Presentation
    ActivePresentation.SaveAs("Your Presentation.pptx")
    MsgBox ("Presentation Saved.")
End If

End Sub

Semoga itu membantu, jangan ragu untuk meninggalkan komentar sesuai kebutuhan.