Kami telah memposting tentang cara menggunakan C # untuk secara terprogram mengekspor slide Anda ke gambar , tetapi hari ini kami ingin menunjukkan kepada Anda cara mudah untuk mengekspor presentasi aktif Anda ke gambar menggunakan kode VBA. Ini bisa sangat mudah jika Anda ingin membuat add-in PowerPoint menggunakan VBA dan Macro dan misalnya menambahkan bilah alat kustom ke Ribbon . Dengan cara ini, Anda dapat dengan mudah mengekspor slide Anda ke gambar atau format lainnya tanpa meninggalkan PowerPoint. Bagi kami, ini sangat membantu ketika kami merancang template PowerPoint gratis kami karena kami dapat dengan mudah menyimpan slide sebagai gambar. Anda dapat mengubah cuplikan berikut untuk mengubah properti ekspor, misalnya untuk mengekspor sebagai PDF atau PNG, bukan JPG, atau mengubah ukuran gambar output.

Menggunakan VBA untuk Mengekspor Slide PowerPoint ke Gambar
Pertama, kita akan membuat makro sederhana yang akan meminta direktori output. Anda dapat menggunakan objek FileDialog untuk meminta direktori. Ini juga digunakan untuk file, tetapi kita akan menggunakannya untuk meminta direktori keluaran dengan tipe msoFileDialogFolderPicker (pelajari lebih lanjut tentang tipe FileDialog di sini ).
Sub ExportHTML (Kontrol ByVal Sebagai IRibbonControl) Jalur redup Sebagai String path = GetSetting ("FPPT", "Export", "Path Default") Dengan Application.FileDialog (msoFileDialogFolderPicker) .InitialFileName = path .AllowMultiSelect = Salah .Title = "Pilih folder tujuan" .Menunjukkan Jika .SelectedItems.Count = 1 Lalu path = .SelectedItems (1) Save_PowerPoint_Slide_as_Images (path) MsgBox "Menyimpan slide ke" + path Lain MsgBox "Tidak ada yang disimpan" Berakhir jika Berakhir dengan Jika jalur <> "" Lalu 'Buka jalur Untuk Keluaran Sebagai #n Menyimpan "FPPT", "Ekspor", "Path Default", path Berakhir jika End Sub
Perhatikan bahwa kami juga telah menambahkan beberapa baris kode untuk mendapatkan lintasan dan menyimpan lintasan sebagai pengaturan di registri Windows. Dengan cara ini, Anda dapat dengan mudah menggunakan ini sebagai tambahan PowerPoint dan akan mempertahankan jalur terakhir yang Anda pilih. Ini sangat berguna dalam kasus kami, mencegah kami memilih direktori keluaran setiap waktu dan menghemat banyak waktu.
Ekspor Slide sebagai Gambar
Untuk menyimpan slide sebagai gambar, kami telah menggunakan contoh kode subrutin dan VBA sederhana dari blog ini Tip & Trik VBA . Kami telah mengadaptasi kode ini sedikit untuk menambahkan awalan dengan nama presentasi PowerPoint aktif, nama file tanpa ekstensi. Anda dapat dengan mudah mengubah variabel awalan ke nilai apa pun yang diinginkan. Juga, alih-alih menggunakan nama objek slide kami telah menggantinya untuk menggunakan SlideIndex . Dengan cara ini, jika Anda mengatur slide atau menghapus slide dari presentasi Anda, output tidak akan terpengaruh dan slide Anda akan diberi nomor dari slide 1 ke slide N, di mana N adalah jumlah total slide dalam presentasi PPT Anda.
Inilah subrutin yang akan mengekspor slide sebagai gambar JPG.
Sub Save_PowerPoint_Slide_as_Images (path As String) Dim sImagePath As String Dim sImageName As String Dim sPrefix As String Dim oSlide As Slide '* Slide Object Dim lScaleWidth As Long '* Scale Width Dim lScaleHeight As Long '* Scale Tinggi On Error GoTo Err_ImageSave sImagePath = path sPrefix = Berpisah (ActivePresentation.Name, ".") (0) Untuk Setiap oSlide Dalam Presentasi Aktif sImageName = sPrefix & "-" & oSlide.SlideIndex & ".jpg" oSlide.Ekspor sImagePath & "\" & sImageName, "JPG" Selanjutnya oSlide Err_ImageSave: If Err <> 0 Then MsgBox Err.Deskripsi Berakhir jika End Sub
Segera setelah Anda menjalankan kode ini, itu akan mengekspor slide saat ini sebagai gambar.
Tahukah kamu? Jika Anda ingin mendapatkan nama file presentasi PowerPoint aktif Anda maka Anda dapat dengan mudah menggunakan baris kode ini:
Split(ActivePresentation.Name, ".")(0)
Atau Anda dapat mengklik kanan dan kemudian pilih Simpan Sebagai … namun menggunakan kode VBA Anda dapat secara terprogram membuat makro untuk merampingkan proses menyimpan PowerPoint dengan banyak slide. Anda juga dapat mengekspor karya Anda ke HTML dan kemudian mendapatkan gambar dari folder output.
Sumber: https://www.free-power-point-templates.com/articles/using-vba-to-export-powerpoint-slides-to-images/