Excel VBA PowerPoint
Dengan 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 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 lalu, Buka 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 dapat membuat PPT dengan dua cara, satu menggunakan "Early Binding", dan yang lainnya menggunakan "Late Binding". Kami akan menunjukkan cara membuat presentasi PowerPoint dengan menggunakan teknik "Pengikatan Awal" .
Biasanya 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, kami telah mengaktifkan model objek PowerPoint di langkah sebelumnya, sekarang. Untuk mengakses ini, 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 PowerPoint, yaitu kotak teks. 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 prosesnya, 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 jendela.
Kode:
PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized
Saat ini, jalankan 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.
Step 9: After adding the presentation, we need to add a slide.
Code:
Set PPSlide = PPPresentation.Slides.Add(1, ppLayoutTitleOnly)
Now this will add the title slide like the below.
Step 10: Now we have more than one chart in the worksheet, we need to loop through each chart and paste in the presentation. Below is the code to copy and paste the chart as well as interpretation.
Below is the complete code for you.
Sub PPT_Example() Dim PPApp As PowerPoint.Application Dim PPPresentation As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide Dim PPShape As PowerPoint.Shape Dim PPCharts As Excel.ChartObject Set PPApp = New PowerPoint.Application PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized 'Add Presentation Set PPPresentation = PPApp.Presentations.Add 'Loop through each chart in the Excel and paste into the PowerPoint For Each PPCharts In 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) 'Copy the chart and paste in Powerpoint PPCharts.Select ActiveChart.ChartArea.Copy PPSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select 'Add heading to the slide PPSlide.Shapes(1).TextFrame.TextRange.Text = PPCharts.Chart.ChartTitle.Text 'Allignment of the chart PPApp.ActiveWindow.Selection.ShapeRange.Left = 15 PPApp.ActiveWindow.Selection.ShapeRange.Top = 125 PPSlide.Shapes(2).Width = 200 PPSlide.Shapes(2).Left = 505 'Add interpretation If InStr(PPSlide.Shapes(1).TextFrame.TextRange.Text, "Region") Then PPSlide.Shapes(2).TextFrame.TextRange.Text = Range("K2").Value & vbNewLine PPSlide.Shapes(2).TextFrame.TextRange.InsertAfter (Range("K3").Value & vbNewLine) 'Else if the chart is the "Renewable" consumption chart, then enter the appropriate comments ElseIf InStr(PPSlide.Shapes(1).TextFrame.TextRange.Text, "Month") Then PPSlide.Shapes(2).TextFrame.TextRange.Text = Range("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 'Now let's change the font size of the callouts box PPSlide.Shapes(2).TextFrame.TextRange.Font.Size = 16 Next PPCharts End Sub
