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

Leave a Comment

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. Temukan dunia game yang tidak diblokir dan nikmati permainan tanpa batasan.

[8 Solusi] Bagaimana Cara Memperbaiki Masalah DNS Pada Windows 10?

[8 Solusi] Bagaimana Cara Memperbaiki Masalah DNS Pada Windows 10?

Mendapatkan masalah DNS di komputer Windows 10? Ikuti perbaikan yang diberikan dalam artikel ini untuk memperbaiki masalah DNS paling umum yang dihadapi pengguna di komputer Windows 10.

7 Perbaikan Untuk Steam Tidak Dapat Menyinkronkan File Anda

7 Perbaikan Untuk Steam Tidak Dapat Menyinkronkan File Anda

Pelajari cara memperbaiki Steam tidak dapat menyinkronkan file Anda. Hapus folder data pengguna, hapus ClientRegistry.blob, verifikasi integritas file game, dan banyak lagi.

Memperbaiki Error Missing or Failed Printhead pada Printer HP [8 Trik]

Memperbaiki Error Missing or Failed Printhead pada Printer HP [8 Trik]

Dapatkan detail lengkap tentang Kesalahan Printhead yang Hilang Atau Gagal. Coba perbaikan terbaik untuk mengatasi HP Officejet hilang atau gagal Printhead error.

Perbaiki URL yang Diminta Ditolak: Silakan Konsultasikan dengan Administrator

Perbaiki URL yang Diminta Ditolak: Silakan Konsultasikan dengan Administrator

Baca artikel untuk memperbaiki URL yang diminta ditolak. Silakan berkonsultasi dengan administrator, kesalahan browser dan buka halaman web yang diperlukan dengan mudah

8 Perbaikan Terbaik untuk Masalah PS5 Tidak Akan Terhubung ke Wi-Fi

8 Perbaikan Terbaik untuk Masalah PS5 Tidak Akan Terhubung ke Wi-Fi

Jika Anda menghadapi masalah PS5 tidak akan terhubung ke Wi-Fi, artikel ini memberikan solusi yang efektif untuk masalah tersebut.

24 Kode Kesalahan Aktivasi Windows 10 Paling Umum dan Perbaikannya [DIPERBARUI]

24 Kode Kesalahan Aktivasi Windows 10 Paling Umum dan Perbaikannya [DIPERBARUI]

Pelajari cara memperbaiki kesalahan aktivasi Windows 10 saat mengaktifkan Windows 10, juga cara membeli kunci produk & memperbaiki kesalahan aktivasi terkait kunci produk sepenuhnya…

Perbaiki PS5 Tidak Dapat Memuat Sesuatu yang Salah dengan 5 Cara Mudah

Perbaiki PS5 Tidak Dapat Memuat Sesuatu yang Salah dengan 5 Cara Mudah

Baca artikel untuk memperbaiki PS5 tidak dapat memuat kesalahan konten. Temukan solusi yang efektif untuk mengatasi masalah ini dengan langkah-langkah yang jelas.

[Memperbaiki] Game Resident Evil 7 Biohazard Crash, Error & Lainnya!

[Memperbaiki] Game Resident Evil 7 Biohazard Crash, Error & Lainnya!

Tidak dapat melakukan Streaming Game Resident Evil 7 kemudian ikuti panduan langkah demi langkah untuk menyelesaikan kesalahan game dan mainkan game tanpa gangguan.

2 Trik Untuk Menghapus Folder $WINDOWS.~BT dan $WINDOWS.~WS Di Windows 10

2 Trik Untuk Menghapus Folder $WINDOWS.~BT dan $WINDOWS.~WS Di Windows 10

Pelajari cara mudah menghapus folder $WINDOWS.~BT dan $WINDOWS.~WS di Windows 10 dengan trik efektif ini. Cobalah sekarang dan optimalkan kinerja PC Anda.