Mengirim Data Excel ke Presentasi PowerPoint - dummies

Video: cara mengirim powerpoint lewat email || powerpoint excel pdf word || Dedi Wilan 2024

Telah dikatakan bahwa hingga 50 persen presentasi PowerPoint berisi data yang telah disalin langsung dari Excel. Pernyataan ini tidak sulit dipercaya. Ini seringkali lebih mudah untuk menganalisis dan membuat grafik dan tampilan data di Excel daripada PowerPoint. Setelah grafik dan tampilan data tersebut dibuat, mengapa Anda tidak akan memindahkannya ke PowerPoint? Makro di bagian ini memungkinkan Anda membuat slide PowerPoint secara dinamis yang berisi data dari rentang yang Anda tentukan.

Anda dapat mendownload contoh kerja pengiriman data Excel ke PowerPoint.

Bagaimana cara kerja makro

Dalam contoh ini, Anda menyalin rentang dari file Excel dan menempelkan rentang itu ke slide dalam presentasi PowerPoint yang baru dibuat.

Ingatlah bahwa karena kode ini akan dijalankan dari Excel, Anda perlu mengatur referensi ke Perpustakaan Objek Microsoft PowerPoint. Anda bisa mengatur referensi dengan membuka Visual Basic Editor di Excel dan memilih Tool → References. Gulir ke bawah sampai Anda menemukan entri Microsoft PowerPoint xx Perpustakaan Objek, di mana xx adalah versi PowerPoint Anda. Tempatkan cek di kotak centang di samping entri.

Sub CopyRangeToPresentation () 'Langkah 1: Deklarasikan variabel Anda Dim PP Sebagai PowerPoint. Aplikasi Dim PPPres Sebagai PowerPoint. Presentasi Dim PPSlide Sebagai PowerPoint. Slide Slide Slide Slide Sebagai String 'Langkah 2: Buka PowerPoint dan buat presentasi baru Tetapkan PP = New PowerPoint. Aplikasi Set PPPres = PP. Presentasi Tambahkan PP. Visible = True 'Langkah 3: Tambahkan slide baru sebagai slide 1 dan atur fokus padanya. Set PPSlide = PPPres. Slide Tambahkan (1, ppLayoutTitleOnly) PPSlide. Pilih 'Langkah 4: Copy range sebagai gambar Sheets ("Slide Data"). Rentang ("A1: J28"). CopyPicture _ Penampilan: = xlScreen, Format: = xlPicture 'Langkah 5: Tempelkan gambar dan sesuaikan posisinya PPSlide. Bentuk Pasta. Pilih PP. ActiveWindow. Pilihan. ShapeRange. Luruskan msoAlignCenters, True PP. ActiveWindow. Pilihan. ShapeRange. Align msoAlignMiddles, True 'Langkah 6: Tambahkan judul ke slide SlideTitle = "My First PowerPoint Slide" PPSlide. Bentuk Judul. TextFrame TextRange. Text = SlideTitle 'Langkah 7: Pembersihan Memori PP. Aktifkan Set PPSlide = Nothing Set PPPres = Nothing Set PP = Nothing End sub

Pada Langkah 1, Anda mendeklarasikan empat variabel: PP adalah variabel objek yang mengekspos objek aplikasi PowerPoint, PPPres adalah variabel objek yang mengekspos objek presentasi PowerPoint., PPSlide adalah variabel objek yang mengekspos objek Slide PowerPoint, dan SlideTitle adalah variabel string yang digunakan untuk melewatkan teks untuk judul slide.

Langkah 2 membuka PowerPoint dengan presentasi kosong. Perhatikan bahwa Anda menyetel properti Visible dari aplikasi PowerPoint ke True untuk memastikan bahwa Anda dapat melihat tindakan saat kode berjalan.

Pada Langkah 3, Anda menambahkan slide baru ke presentasi menggunakan metode Add of the Slide. Perhatikan bahwa Anda menggunakan ppLayoutTitleOnly, memastikan bahwa slide dibuat dengan bingkai teks judul. Anda kemudian mengambil langkah ekstra dan mengatur fokus pada slide. Artinya, Anda secara eksplisit memberi tahu PowerPoint untuk memilih slide ini, membuatnya aktif.

Pada Langkah 4, Anda menggunakan metode CopyPicture untuk menyalin rentang target sebagai gambar. Rentang yang akan disalin di sini adalah kisaran A1 sampai J28 pada tab Slide Data.

Langkah 5 memotret gambar ke slide aktif dan mengarahkan gambar secara horizontal dan vertikal.

Pada Langkah 6, Anda menyimpan teks untuk judul dalam variabel string, dan kemudian menyebarkan variabel tersebut ke PowerPoint untuk menerapkan teks ke judul bingkai teks.

Pada Langkah 7, Anda melepaskan objek yang ditugaskan ke variabel Anda, mengurangi kemungkinan masalah yang disebabkan oleh objek rouge yang mungkin tetap terbuka di memori.