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

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:

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

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.

Periksa nilai yang dikembalikan dari fungsi MsgBox

Ketika kotak dialog MsgBox muncul untuk interaksi pengguna, Anda ingin mengetahui opsi mana yang diklik pengguna, Anda dapat menggunakan kode berikut untuk memeriksanya:

Kode memeriksa tombol apa yang dipilih pengguna di MsgBox

Sesuai dengan pilihan masing-masing pengguna, Anda dapat terus menjalankan kode yang berbeda, kode VBA ini, dapat Anda pelajari di kursus VBA dengan pakar terkemuka di Belajar Excel Online.

Apakah MsgBox mendukung aksen Vietnam? Jawabannya tidak, kenapa? Karena Microsoft memprogramnya seperti itu. Tapi apakah ada cara lain? Jawabannya iya, anda bisa membaca artikel Menggunakan Aksen Vietnam dengan MsgBox VBA

Semua kode dalam artikel dapat Anda lihat di Intisari:

  Sub HeoBasicMessageBox()
  MsgBox "Xin chao cac ban da den voi Hoc Excel Online"
  Akhiri Sub
   
  Sub HeoBasicMessageBoxDenganJudul()
  MsgBox "Xin chao cac ban da den voi Hoc Excel Online", , "HEO"
  Akhiri Sub
   
  Sub HeoBasicMessageBox2()
  MsgBox "Hoc Excel Online", _
  vbOKBatal + _
  vbKritis + _
  vbDefaultButton1 + _
  vbApplicationModal
  Akhiri Sub
   
  Sub HeoBasicMessageBox3()
  MsgBox "Hoc Excel Online", _
  vbOKBatal + _
  vbKritis + _
  vbDefaultButton1 + _
  vbSystemModal
  Akhiri Sub
   
  Sub HeoMsgBoxResult1()
  Redupkan respons Sebagai VbMsgBoxResult
   
  respon = MsgBox("Hoc Excel Online", vbYesNo + vbCritical)
  Tanggapan MsgBox
  Akhiri Sub
   
  Sub HeoMsgBoxResult2()
  Redupkan respons Sebagai VbMsgBoxResult
   
  respon = MsgBox("Hoc Excel Online", vbYesNo + vbQuestion)
  Tanggapan MsgBox
  Akhiri Sub
   
  Sub HeoMsgBoxResult3()
  Redupkan respons Sebagai VbMsgBoxResult
   
  respon = MsgBox("Hoc Excel Online", vbYesNo + vbExclamation)
  Tanggapan MsgBox
   
  Akhiri Sub
   
  Sub HeoMsgBoxResult4()
  Redupkan respons Sebagai VbMsgBoxResult
   
  respon = MsgBox("Hoc Excel Online", vbYesNo + vbInformasi)
  Tanggapan MsgBox
  Akhiri Sub
   
  Sub HeoMsgBoxResult5()
  Redupkan respons Sebagai VbMsgBoxResult
  respon = MsgBox("Kesalahan", vbAbortRetryIgnore + vbDefaultButton1 + vbMsgBoxHelpButton)
  Tanggapan MsgBox
  Akhiri Sub
   
  Sub HeoMsgBoxResult6()
  Redupkan respons Sebagai VbMsgBoxResult
  respon = MsgBox("Kesalahan", vbAbortRetryIgnore + vbDefaultButton2 + vbMsgBoxHelpButton)
  Tanggapan MsgBox
  Akhiri Sub
   
  Sub HeoMsgBoxResult7()
  Redupkan respons Sebagai VbMsgBoxResult
  respon = MsgBox("Kesalahan", vbAbortRetryIgnore + vbDefaultButton3 + vbMsgBoxHelpButton)
  Tanggapan MsgBox
  Akhiri Sub
   
  Sub HeoMsgBoxResult8()
  Redupkan respons Sebagai VbMsgBoxResult
  respon = MsgBox("Kesalahan", vbAbortRetryIgnore + vbDefaultButton4 + vbMsgBoxHelpButton)
  Tanggapan MsgBox
  Akhiri Sub
   
  Sub HeoMsgBoxResult9()
  Redupkan respons Sebagai VbMsgBoxResult
  respon = MsgBox("Mau coba lagi?", vbRetryCancel + vbQuestion, "Error")
  Tanggapan MsgBox
  Akhiri Sub
   
  Sub HeoMsgBoxResult10()
  MsgBox "Terjadi kesalahan kritis", vbCritical, "Kesalahan Sistem"
  Akhiri Sub

Instruksi menonaktifkan Webex agar tidak diluncurkan secara otomatis saat startup

Instruksi menonaktifkan Webex agar tidak diluncurkan secara otomatis saat startup

Petunjuk menonaktifkan Webex agar tidak diluncurkan secara otomatis saat startup Kami memiliki berbagai cara untuk menonaktifkan Cisco Webex Meetings agar tidak l...

Petunjuk untuk Menyalin Janji Outlook

Petunjuk untuk Menyalin Janji Outlook

Petunjuk untuk Menyalin Janji Outlook Menyalin janji temu kalender Outlook ke tanggal lain dapat berguna untuk menjadwalkan ulang rapat...

Game tidak diblokir di iPad di sekolah 2024

Game tidak diblokir di iPad di sekolah 2024

Game tidak diblokir di iPad di sekolah 2024 1. Game apa yang diblokir di sekolah? Beberapa permainan dibatasi di sekolah karena berbagai...

Game Komputer Sekolah yang Tidak Diblokir 2024

Game Komputer Sekolah yang Tidak Diblokir 2024

Game Komputer Sekolah yang Tidak Diblokir 2024 “Game yang tidak diblokir untuk sekolah” adalah masalah mendesak yang mengharuskan seseorang untuk mendengarkan kedua sisi...

Cara bermain game menggunakan iPad dan PC di sekolah 2024

Cara bermain game menggunakan iPad dan PC di sekolah 2024

Cara bermain game menggunakan iPad dan PC di sekolah 2024 Mengapa sekolah Anda memblokir game online? Pertama-tama, ini membantu mereka mencetak poin dengan...

10 situs game teratas yang tidak diblokir di sekolah tahun 2024

10 situs game teratas yang tidak diblokir di sekolah tahun 2024

10 situs web game teratas yang tidak diblokir di sekolah tahun 2024 Apakah Anda mencari Dunia Game yang Tidak Diblokir? Pada artikel ini, kita telah membahas aplikasi gratis terbaik...

10 game teratas yang paling sering dimainkan siswa di sekolah tanpa khawatir diblokir

10 game teratas yang paling sering dimainkan siswa di sekolah tanpa khawatir diblokir

10 game terpopuler yang paling sering dimainkan siswa di sekolah tanpa khawatir diblokir Apa keuntungan memainkan game online ini? te...

Cara Memperbaiki Kesalahan Pembaruan Mesin Utilitas Corsair

Cara Memperbaiki Kesalahan Pembaruan Mesin Utilitas Corsair

Pelajari solusi pemecahan masalah untuk mengatasi kesalahan pembaruan mesin utilitas corsair dan mengakses fitur baru alat ini.

[100% TERSELESAIKAN] Bagaimana Mengatasi Masalah Laptop Dell Tidak Mau Hidup?

[100% TERSELESAIKAN] Bagaimana Mengatasi Masalah Laptop Dell Tidak Mau Hidup?

Jika laptop Dell Anda tidak menyala, maka ikuti perbaikan yang bisa diterapkan yang diberikan dalam artikel & atasi Laptop Dell tidak mau hidup dengan mudah.

Perselisihan Tidak Akan Terbuka? 9 Solusi Mudah Memperbaiki Discord Tidak Terbuka

Perselisihan Tidak Akan Terbuka? 9 Solusi Mudah Memperbaiki Discord Tidak Terbuka

Jika mendapatkan Discord tidak akan membuka kesalahan & peluncuran gagal di OS Windows, maka ikuti solusi mudah dan perbaiki Discord tidak membuka masalah dengan benar ...