Bagaimana untuk bekerja dengan Mesej dan Kotak Input dalam PowerPoint VBA?

Menerusi ulasan, saya telah melihat beberapa soalan pembaca tentang cara bekerja dengan Input Asas Visual dan kotak Mesej dalam PowerPoint.

Dalam tutorial ini kami akan menyediakan pengetahuan asas yang sangat asas untuk membantu anda menggunakan keupayaan tersebut apabila mengautomasikan penciptaan pembentangan anda.

Menyediakan Tab Pembangun

Mula-mula, kita perlu mendayakan persekitaran pembangun untuk PowerPoint. Ikuti tutorial ini untuk menyediakan tab pembangunan anda.

Dalam PowerPoint, pergi ke menu Pembangun, dan tekan Visual Basic.

Dalam pepohon Projek, klik kanan pembentangan anda, tekan Sisipkan dan kemudian pilih Modul. Modul VBA baharu akan dibuat, di situlah tempat anda akan menulis kod anda.

Kotak Mesej dalam PowerPoint

Kotak mesej adalah jenis penjelasan sendiri, matlamatnya adalah untuk memaparkan beberapa maklumat berguna kepada pengguna akhir. Tulis kod berikut dalam Modul anda:

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

Tekan F5 atau Run dan lihat hasilnya:

Contoh Mesej dan Kotak Input

Tidak seperti Kotak Mesej, kotak input digunakan untuk mendapatkan maklum balas daripada pengguna. Mari kita lihat contoh di bawah. Skrip secara automatik memasukkan slaid baharu pada pembentangan.

Inilah yang akan kami laksanakan:

1. Kami akan terlebih dahulu menggesa pengguna untuk bilangan slaid untuk ditambah (menggunakan Kotak Input).
2. Kami kemudian akan memberitahu pengguna tentang bilangan slaid yang akan dibuat (menggunakan Kotak Mesej)
3. Terakhir, akan teruskan dan mencipta slaid secara pemrograman.
4. Terakhir kita akan menyimpan persembahan yang diubah suai

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 ia membantu, sila tinggalkan sebagai komen yang diperlukan.