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...
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:
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.
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 |
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 Menyalin janji temu kalender Outlook ke tanggal lain dapat berguna untuk menjadwalkan ulang rapat...
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 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 Mengapa sekolah Anda memblokir game online? Pertama-tama, ini membantu mereka mencetak poin dengan...
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 terpopuler yang paling sering dimainkan siswa di sekolah tanpa khawatir diblokir Apa keuntungan memainkan game online ini? te...
Pelajari solusi pemecahan masalah untuk mengatasi kesalahan pembaruan mesin utilitas corsair dan mengakses fitur baru alat ini.
Jika laptop Dell Anda tidak menyala, maka ikuti perbaikan yang bisa diterapkan yang diberikan dalam artikel & atasi Laptop Dell tidak mau hidup dengan mudah.
Jika mendapatkan Discord tidak akan membuka kesalahan & peluncuran gagal di OS Windows, maka ikuti solusi mudah dan perbaiki Discord tidak membuka masalah dengan benar ...