Menggunakan VBA untuk Mengekspor Slide PowerPoint ke Gambar

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/