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/