Excel VBA PowerPoint
Menggunakan VBA kita dapat mengotomatiskan pekerjaan yang kita lakukan untuk PowerPoint, tetapi pertama-tama untuk menggunakan kode atau cuplikan VBA untuk bekerja di PowerPoint, pertama-tama kerjakan melalui opsi keamanan di PowerPoint untuk mengaktifkan semua makro dan kemudian kita dapat menggunakan referensi VBA PowerPoint untuk makro di MS Power Point.
Keunggulan dari VBA adalah kami dapat mereferensikan produk Microsoft lainnya seperti "Microsoft Word" dan "Microsoft PowerPoint". Kami biasanya membuat laporan di excel dan kemudian membuat presentasi PowerPoint. Semua pengguna excel biasanya menghabiskan banyak waktu untuk mempersiapkan presentasi dari data dan laporan excel. Jika Anda menghabiskan banyak waktu untuk mempersiapkan presentasi PowerPoint, tutorial ini akan menunjukkan kepada Anda cara membuat presentasi PowerPoint dari excel itu sendiri menggunakan VBA Coding.
Aktifkan Model Objek Powerpoint
Langkah 1: Buka VBA Editor dan kemudian, Pergi ke Alat dan Referensi.
Langkah 2: Sekarang Anda akan melihat semua referensi ke Proyek VBA. Gulir ke bawah dan pilih "Perpustakaan Objek Microsoft PowerPoint 15.0".
Langkah 3: Klik Ok. Sekarang kita bisa mengakses PowerPoint dari excel.
Tutorial VBA untuk Membuat Presentasi PowerPoint
Kita bisa membuat PPT dengan dua cara satu dengan menggunakan "Early Binding" dan satu lagi menggunakan "Late Binding". Kami akan menunjukkan cara membuat presentasi PowerPoint dengan menggunakan teknik "Pengikatan Awal" .
Anda dapat mengunduh Template Excel PowerPoint VBA ini di sini - Template Excel PowerPoint VBABiasanya, dari excel kami menyiapkan presentasi berdasarkan grafik dan interpretasi grafik. Jadi untuk tujuan ini, saya telah membuat beberapa bagan excel sederhana dan interpretasi di lembar kerja yang sama.
Langkah 1: Mulai subrutin di vba. Sekarang untuk mengakses PowerPoint kita telah mengaktifkan model objek PowerPoint pada langkah sebelumnya, sekarang untuk mengaksesnya kita perlu mendeklarasikan variabel sebagai PowerPoint.Application.
Kode:
Sub PPT_Example () Redupkan PPApp Sebagai PowerPoint. Aplikasi End Sub
Langkah 2: Untuk menambahkan presentasi ke PowerPoint kita perlu mendeklarasikan variabel sebagai PowerPoint.Presentation.
Kode:
Redupkan PPPresentation Sebagai PowerPoint.Presentation
Langkah 3: Setelah menambahkan presentasi ke PowerPoint kita perlu menambahkan Slide. Untuk mendeklarasikan variabel sebagai PowerPoint.Slide
Kode:
Redupkan PPSlide Sebagai PowerPoint. Slide
Langkah 4: Setelah slide ditambahkan ke PowerPoint kita perlu menggunakan bentuk di kotak teks yaitu PowerPoint. Untuk mendeklarasikan variabel sebagai PowerPoint.Shape
Kode:
Redupkan PPSbentuk Sebagai PowerPoint.Shape
Langkah 5: Sekarang untuk mengakses semua grafik di lembar kerja kita perlu mendeklarasikan variabel sebagai Excel.ChartObjects.
Kode:
Redupkan PPCharts Sebagai Excel.ChartObject
Ok, untuk memulai proses variabel ini sudah cukup.
Langkah 6: Sekarang kita perlu meluncurkan PowerPoint dari excel. Karena ini adalah objek eksternal, kita perlu mengatur ini sebagai powerpoint baru.
Kode:
Set PPApp = New PowerPoint.Application
Ini akan meluncurkan PowerPoint baru dari excel.
Langkah 7: Sekarang variabel PPApp sama dengan PowerPoint yang telah kami luncurkan. Sekarang buat PowerPoint ini terlihat dan maksimalkan jendelanya.
Kode:
PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized
Saat ini jalankan saja kode menggunakan tombol F5 atau secara manual, Anda akan melihat aplikasi PowerPoint diluncurkan seperti di bawah ini.
Langkah 8: Sekarang kita perlu menambahkan presentasi ke aplikasi PowerPoint yang telah kita luncurkan.
Kode:
Set PPPresentation = PPApp.Presentations.Add
Sekarang kita akan melihat presentasi PowerPoint seperti ini.
Langkah 9: Setelah menambahkan presentasi kita perlu menambahkan slide.
Kode:
Setel PPSlide = PPPresentation.Slides.Add (1, ppLayoutTitleOnly)
Sekarang ini akan menambahkan slide judul seperti di bawah ini.
Langkah 10: Sekarang kita memiliki lebih dari satu bagan di lembar kerja yang perlu kita putar melalui setiap bagan dan tempelkan dalam presentasi. Di bawah ini adalah kode untuk menyalin dan menempel grafik serta interpretasi.
Di bawah ini adalah kode lengkap untuk Anda.
Sub PPT_Example () Redupkan PPApp Sebagai PowerPoint. Aplikasi Redupkan PPPresentation Sebagai PowerPoint.Presentation Redupkan PPSlide Sebagai PowerPoint.Slide Redupkan PPSBentuk Sebagai PowerPoint. Bentuk Redupkan PPCharts Sebagai Excel.ChartObject Set PPApp = New PowerPoint.Application PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized 'Add Presentation Set PPPresentation = PPApp.Presentations.Add' Loop melalui setiap bagan di Excel dan tempelkan ke PowerPoint Untuk Setiap PPCharts Di ActiveSheet.ChartObjects PPApp.ActivePresentation.Slides.Add PPApp.ActivePresentation.Slides.Count + 1, ppLayoutText PPApp.ActiveWindow.View.GotoSlide PPApp.ActivePresentation.Slides.Count Set PPSlide = PPApp.ActivePresentation.Slides (PPApp.ActivePresentation.Slides.Count) 'Salin bagan dan tempel di Powerpoint PPCharts.Select ActiveChart.ChartArea.Copy PPSlide.Shapes .PasteSpecial (DataType:= ppPasteMetafilePicture) .Select 'Tambahkan heading ke slide PPSlide.Shapes (1) .TextFrame.TextRange.Text = PPCharts.Chart.ChartTitle.Text' Alignment dari grafik PPApp.ActiveWindow.Selection.ShapeRange.Left = 15 PPApp.ActiveWindow .Selection.ShapeRange.Top = 125 PPSlide.Shapes (2) .Width = 200 PPSlide.Shapes (2) .Left = 505 'Tambahkan interpretasi If InStr (PPSlide.Shapes (1) .TextFrame.TextRange.Text, "Region" ) Kemudian PPSlide.Shapes (2) .TextFrame.TextRange.Text = Range ("K2"). Value & vbNewLine PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Range ("K3"). Value & vbNewLine) ' Lain jika bagan adalah bagan konsumsi "Renewable", kemudian masukkan komentar yang sesuai ElseIf InStr (PPSlide.Shapes (1) .TextFrame.TextRange.Text, "Month") Kemudian PPSlide.Shapes (2) .TextFrame.TextRange.Text = Rentang ("K20 "). Value & vbNewLine PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Range (" K21 "). Value & vbNewLine) PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Range (" K22 ") .Value & vbNewLine) End If 'Sekarang mari kita ubah ukuran font dari kotak keterangan PPSlide.Shapes (2) .TextFrame.TextRange.Font.Size = 16 PPCharts Berikutnya End Sub
