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.
Beberapa hari yang lalu, seorang pembaca bertanya tentang cara mengotomatiskan pembuatan presentasi PowerPoint dari awal dan kemudian dengan cepat menambahkan slide ke presentasi yang ada. Saya pikir skrip itu mungkin ada dalam daftar Macro PowerPoint yang paling berguna.
Seperti yang kami tunjukkan sebelumnya, PowerPoint tidak menyertakan Perekam Makro (tidak seperti Excel dan Word, yang keduanya memiliki perekam bawaan untuk Makro). Oleh karena itu, kita memiliki Visual Basic for Application lama yang bagus yang dapat kita gunakan untuk membuat Macro sederhana untuk mengotomatisasi PowerPoint. Ada alternatif lebih lanjut untuk PowerPoint Automation, tetapi itu melampaui cakupan tutorial ini.
Dalam tutorial singkat hari ini, kita akan membahas tiga kasus penggunaan yang berbeda:
Mari kita mulai.
Lihatlah Pita. Jika Anda tidak melihat entri Pengembang di menu, sebelum memulai pengkodean, Anda harus mengaktifkan tab pengembang.
Setelah Anda membuat menu Pengembang terlihat Pita Anda, lanjutkan dan tekan Developer , lalu tekan tombol Visual Basic (atau cukup lanjutkan dan tekan Alt+F11) untuk membuka Visual Basic IDE.
VBA untuk Membuat Presentasi PowerPoint
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
VBA untuk menyisipkan slide
Sub CreateSlide()
Dim NewSlide as Slide
'This statement ads a title slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub
Makro untuk menyiapkan presentasi baru dan menambahkan slide
Itu hanya akan mencampur dua cuplikan yang diuraikan di atas.
Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
' Title Slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'Save the new PowerPoint file
NewPres.SaveAs("MyPresentation.pptx")
End Sub
Selanjutnya Anda mungkin melihat tutorial kami tentang membuat bentuk secara terprogram di PowerPoint dengan VBA
Hasilkan Presentasi PowerPoint dari Excel
Kasus terakhir adalah Anda ingin membuat presentasi PowerPoint langsung dari spreadsheet Excel. Anda dapat menggunakan teknik yang sama dari Word dan Aplikasi Microsoft 365 lainnya.
Sub CreatePresentationFromExcel()
Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")
Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close
MyPPt.Quit
MsgBox ("Presentation saved")
End Sub
Nikmati
10 situs web game teratas yang tidak diblokir di sekolah tahun 2024. Temukan dunia game yang tidak diblokir dan nikmati permainan tanpa batasan.
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.
Pelajari cara memperbaiki Steam tidak dapat menyinkronkan file Anda. Hapus folder data pengguna, hapus ClientRegistry.blob, verifikasi integritas file game, dan banyak lagi.
Dapatkan detail lengkap tentang Kesalahan Printhead yang Hilang Atau Gagal. Coba perbaikan terbaik untuk mengatasi HP Officejet hilang atau gagal Printhead error.
Baca artikel untuk memperbaiki URL yang diminta ditolak. Silakan berkonsultasi dengan administrator, kesalahan browser dan buka halaman web yang diperlukan dengan mudah
Jika Anda menghadapi masalah PS5 tidak akan terhubung ke Wi-Fi, artikel ini memberikan solusi yang efektif untuk masalah tersebut.
Pelajari cara memperbaiki kesalahan aktivasi Windows 10 saat mengaktifkan Windows 10, juga cara membeli kunci produk & memperbaiki kesalahan aktivasi terkait kunci produk sepenuhnya…
Baca artikel untuk memperbaiki PS5 tidak dapat memuat kesalahan konten. Temukan solusi yang efektif untuk mengatasi masalah ini dengan langkah-langkah yang jelas.
Tidak dapat melakukan Streaming Game Resident Evil 7 kemudian ikuti panduan langkah demi langkah untuk menyelesaikan kesalahan game dan mainkan game tanpa gangguan.
Pelajari cara mudah menghapus folder $WINDOWS.~BT dan $WINDOWS.~WS di Windows 10 dengan trik efektif ini. Cobalah sekarang dan optimalkan kinerja PC Anda.