PowerPoint Excel VBA
Dengan menggunakan VBA, kita dapat mengotomatisasi kerja yang kita lakukan untuk PowerPoint, tetapi pertama-tama untuk menggunakan kod VBA atau coretan untuk bekerja di powerpoint, pertama-tama melalui pilihan keselamatan di PowerPoint untuk mengaktifkan semua makro dan kemudian kita dapat menggunakan rujukan PowerPoint VBA untuk makro di MS PowerPoint.
Keindahan VBA adalah kita dapat merujuk produk Microsoft lain seperti "Microsoft Word" dan "Microsoft PowerPoint." Kami biasanya membuat laporan di excel dan kemudian membuat persembahan PowerPoint. Semua pengguna excel biasanya menghabiskan banyak masa untuk menyiapkan persembahan dari data dan laporan excel. Sekiranya anda menghabiskan banyak masa untuk menyiapkan persembahan PowerPoint, tutorial ini akan menunjukkan kepada anda cara membuat persembahan PowerPoint dari excel itu sendiri menggunakan VBA Coding.
Dayakan Model Objek Powerpoint
Langkah 1: Buka Editor VBA dan kemudian, Pergi ke Alat dan Rujukan.
Langkah 2: Sekarang, anda akan melihat semua rujukan untuk Projek VBA. Tatal ke bawah dan pilih "Perpustakaan Objek Microsoft PowerPoint 15.0".
Langkah 3: Klik, Ok. Sekarang kita dapat mengakses PowerPoint dari excel.
Tutorial VBA untuk Membuat Persembahan PowerPoint
Kita dapat membuat PPT dalam dua cara satu dengan menggunakan "Early Binding", dan yang lain menggunakan "Late Binding." Kami akan menunjukkan kepada anda bagaimana membuat persembahan PowerPoint menggunakan teknik "Early Binding" .
Biasanya, dari excel, kami menyediakan persembahan berdasarkan carta dan tafsiran carta. Oleh itu, untuk tujuan ini, saya telah membuat beberapa carta dan tafsiran excel mudah dalam lembaran kerja yang sama.
Langkah 1: Mulakan subrutin di VBA. Sekarang untuk mengakses PowerPoint, kami telah mengaktifkan model objek PowerPoint pada langkah sebelumnya, sekarang. Untuk mengaksesnya, kita perlu menyatakan pemboleh ubah sebagai PowerPoint. Aplikasi.
Kod:
Sub PPT_Contoh () Dim PPApp Sebagai PowerPoint. Sub Akhir Permohonan
Langkah 2: Untuk menambahkan persembahan ke PowerPoint, kita perlu menyatakan pemboleh ubah sebagai PowerPoint.Presentation.
Kod:
Dim PPP Presentation Sebagai PowerPoint.Presentation
Langkah 3: Setelah menambahkan persembahan ke PowerPoint, kita perlu menambah Slide. Untuk menyatakan pemboleh ubah sebagai PowerPoint.Slide
Kod:
Dim PPSlide Sebagai PowerPoint.Slide
Langkah 4: Setelah slaid ditambahkan ke PowerPoint, kita perlu menggunakan bentuk dalam PowerPoint, iaitu, kotak teks. Untuk menyatakan pemboleh ubah sebagai PowerPoint.Shape
Kod:
Dim PPS Bentuk Sebagai PowerPoint. Bentuk
Langkah 5: Sekarang, untuk mengakses semua carta di lembaran kerja, kita perlu menyatakan pemboleh ubah sebagai Excel.ChartObjects.
Kod:
Redupkan PPCharts Sebagai Excel.ChartObject
Ok, untuk memulakan prosiding, pemboleh ubah ini sudah cukup.
Langkah 6: Sekarang, kita perlu melancarkan PowerPoint dari excel. Oleh kerana ia adalah objek luaran, kita perlu menetapkan ini sebagai PowerPoint baru.
Kod:
Tetapkan PPApp = PowerPoint Baru. Aplikasi
Ini akan melancarkan PowerPoint baru dari excel.
Langkah 7: Sekarang, pemboleh ubah PPApp sama dengan PowerPoint yang telah kami lancarkan. Sekarang jadikan PowerPoint ini kelihatan dan memaksimumkan tetingkap.
Kod:
PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaksimum
Buat masa ini, jalankan kod menggunakan kekunci F5 atau secara manual. Anda harus melihat aplikasi PowerPoint dilancarkan seperti yang berikut.
Langkah 8: Sekarang, kita perlu menambahkan persembahan ke aplikasi PowerPoint yang telah kita lancarkan.
Kod:
Tetapkan PPPresentation = PPApp.Presentations.Add
Sekarang kita harus melihat persembahan 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
