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

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:

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

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.

Semak nilai yang dikembalikan daripada fungsi MsgBox

Apabila kotak dialog MsgBox muncul untuk interaksi pengguna, anda ingin tahu pilihan yang pengguna klik, anda boleh menggunakan kod berikut untuk menyemaknya:

Kod menyemak butang yang pengguna pilih pada MsgBox

Selaras dengan pilihan setiap pengguna, anda boleh terus menjalankan kod yang berbeza, kod VBA ini, anda boleh belajar dalam kursus VBA dengan pakar terkemuka di Belajar Excel Dalam Talian.

Adakah MsgBox menyokong bahasa Vietnam beraksen? Jawapannya tidak, kenapa? Kerana Microsoft memprogramkannya seperti itu. Tetapi adakah cara lain? Jawapannya ya, anda boleh membaca artikel Menggunakan bahasa Vietnam beraksen dengan MsgBox VBA

Semua kod dalam artikel yang anda boleh lihat di Gist:

  Sub HeoBasicMessageBox()
  MsgBox "Xin chao cac ban da den voi Hoc Excel Online"
  Tamat Sub
   
  Sub HeoBasicMessageBoxWithTitle()
  MsgBox "Xin chao cac ban da den voi Hoc Excel Online", , "HEO"
  Tamat Sub
   
  Sub HeoBasicMessageBox2()
  MsgBox "Hoc Excel Online", _
  vbOKCancel + _
  vbKritis + _
  vbDefaultButton1 + _
  vbApplicationModal
  Tamat Sub
   
  Sub HeoBasicMessageBox3()
  MsgBox "Hoc Excel Online", _
  vbOKCancel + _
  vbKritis + _
  vbDefaultButton1 + _
  vbSystemModal
  Tamat Sub
   
  Sub HeoMsgBoxResult1()
  Sambutan malap Sebagai VbMsgBoxResult
   
  respons = MsgBox("Hoc Excel Online", vbYesNo + vbCritical)
  Respons MsgBox
  Tamat Sub
   
  Sub HeoMsgBoxResult2()
  Sambutan malap Sebagai VbMsgBoxResult
   
  respons = MsgBox("Hoc Excel Online", vbYesNo + vbQuestion)
  Respons MsgBox
  Tamat Sub
   
  Sub HeoMsgBoxResult3()
  Sambutan malap Sebagai VbMsgBoxResult
   
  respons = MsgBox("Hoc Excel Online", vbYesNo + vbExclamation)
  Respons MsgBox
   
  Tamat Sub
   
  Sub HeoMsgBoxResult4()
  Sambutan malap Sebagai VbMsgBoxResult
   
  respons = MsgBox("Hoc Excel Online", vbYesNo + vbInformation)
  Respons MsgBox
  Tamat Sub
   
  Sub HeoMsgBoxResult5()
  Sambutan malap Sebagai VbMsgBoxResult
  respon = MsgBox("Ralat", vbAbortRetryAbaikan + vbDefaultButton1 + vbMsgBoxHelpButton)
  Respons MsgBox
  Tamat Sub
   
  Sub HeoMsgBoxResult6()
  Sambutan malap Sebagai VbMsgBoxResult
  respons = MsgBox("Ralat", vbAbortRetryAbaikan + vbDefaultButton2 + vbMsgBoxHelpButton)
  Respons MsgBox
  Tamat Sub
   
  Sub HeoMsgBoxResult7()
  Sambutan malap Sebagai VbMsgBoxResult
  respons = MsgBox("Ralat", vbAbortRetryIgnore + vbDefaultButton3 + vbMsgBoxHelpButton)
  Respons MsgBox
  Tamat Sub
   
  Sub HeoMsgBoxResult8()
  Sambutan malap Sebagai VbMsgBoxResult
  respons = MsgBox("Ralat", vbAbortRetryIgnore + vbDefaultButton4 + vbMsgBoxHelpButton)
  Respons MsgBox
  Tamat Sub
   
  Sub HeoMsgBoxResult9()
  Sambutan malap Sebagai VbMsgBoxResult
  respon = MsgBox("Ingin mencuba lagi?", vbRetryCancel + vbQuestion, "Ralat")
  Respons MsgBox
  Tamat Sub
   
  Sub HeoMsgBoxResult10()
  MsgBox "Ralat kritikal berlaku", vbCritical, "Ralat Sistem"
  Tamat Sub

Cara menukar Chromebook akaun utama

Cara menukar Chromebook akaun utama

Untuk menukar akaun utama pada Chromebook anda, log masuk dengan akaun utama dan gunakan Powerwash untuk tetapan semula kilang peranti. Pelajari langkah-langkah yang mudah untuk proses ini.

Nota Google Keep hilang? Inilah cara untuk mendapatkan mereka kembali

Nota Google Keep hilang? Inilah cara untuk mendapatkan mereka kembali

Jika nota Google Keep hilang, semak arkib, sampah dan pastikan anda menyegerakkan semula dan menggunakan Akaun Google yang betul.

Apakah Maksud TTB dan Bagaimana Saya Menggunakannya?

Apakah Maksud TTB dan Bagaimana Saya Menggunakannya?

Singkatan internet TTB mempunyai lebih daripada satu makna tetapi terdapat satu yang digunakan terutamanya untuknya. Inilah pandangan tentang bagaimana cara anda harus menggunakannya.

Bagaimana Untuk Selesaikan Masalah Lampu Merah Pengawal PS4? [Penyelesaian Dicuba & Diuji]

Bagaimana Untuk Selesaikan Masalah Lampu Merah Pengawal PS4? [Penyelesaian Dicuba & Diuji]

Adakah anda sedang mencari penyelesaian pantas untuk menyelesaikan masalah lampu merah pengawal PS4? Kemudian cuba penyelesaian yang diberikan dan betulkan lampu merah pada PS4...

Cara Mengira Tahun Perkhidmatan dalam Excel

Cara Mengira Tahun Perkhidmatan dalam Excel

Ketahui cara mengira tahun perkhidmatan dalam Excel untuk memudahkan pengurusan pekerja dan manfaatkan fungsi-fungsi berguna seperti YEARFRAC dan DATEDIF.

Halia 2.7.53.0

Halia 2.7.53.0

Halia ialah penyemak ejaan dan tatabahasa percuma.

Blok

Blok

Blocks ialah permainan intelektual untuk pelajar sekolah rendah gred 3 untuk mempraktikkan kemahiran pengesanan dan mata mereka dan disertakan oleh guru dalam program sokongan pengajaran IT.

Prezi 6.26

Prezi 6.26

Prezi ialah aplikasi percuma yang membolehkan anda membuat persembahan digital, dalam talian dan luar talian.

Mathway

Mathway

Mathway ialah apl yang sangat berguna yang boleh membantu anda menyelesaikan semua masalah matematik yang memerlukan alat yang lebih kompleks daripada kalkulator terbina dalam peranti anda.

Adobe Presenter

Adobe Presenter

Adobe Presenter ialah perisian e-Pembelajaran yang dikeluarkan oleh Adobe Systems yang tersedia pada platform Microsoft Windows sebagai pemalam Microsoft PowerPoint.