Tips Menyalin Grafik yang Tertempel di Sheet Excel ke dalam Slide PowerPoint dengan Macro VBA
Jika sebelumnya kita pernah membahas tentang Cara Menyalin Grafik yang Tertanam di Sheet Excel ke Slide PowerPoint dengan Macro VBA, kali ini kami akan berbagi cara menyalin gambar grafik yang tertempel di atas worksheet Excel ke dalam slide presentasi PowerPoint.
Jika Anda harus memilih antara menyalin grafik tertempel atau grafik tertanam maka mungkin Anda akan cenderung memilih grafik tertempel karena lebih memungkinkan Anda menyesuaikan ukuran agar lebih pas pada slide PowerPoint.
Hal ini dikarenakan variabel objek ChartObjects merupakan wadah bagi grafik tertempel dan mempunyai properti pengaturan tersendiri sehingga Anda bisa menyesuaikan lebar, tinggi, dan letak pada worksheet, sedangkan grafik sheet atau yang tertanam di sheet tidak dapat memungkinkan untuk diatur ukurannya.
Dalam tutorial ini kami berbagi kode macro yang berisi perintah menyalin grafik tertempel pada suatu worksheet lalu menyalinkan gambar grafik tersebut ke dalam slide kosong file presentasi PowerPoint yang sedang membuka.
Jadi sebelum memulai membuat kode macro ini pastikan agar Anda telah membuka presentasi blank atau file PowerPoint dalam komputer Anda dan tentukan pula di slide manakah Anda akan memasang salinan gambar grafik tersebut.
Mari kita langsung saja buat kode macronya dengan langkah-langkah berikut:
1. Langkah pertama Anda membuka VBE dengan cara menekan tombol Alt+F11 pada keyboard.
2. Buka menu Insert > Module.
3. Ketik terlebih dahulu:
4. Di bawahnya tetapkan contoh variabel untuk aplikasi, nama file, dan objek Slide:
5. Untuk contoh ini, yang akan Anda salin adalah grafik pertama pada sheet maka pilih berdasarkan urutannya yaitu 1:
6. Pastikan aplikasi PowerPoint membuka, jika tidak membuka maka hentikan macro dengan sebuah pemberitahuan:
Set A = GetObject(, "Powerpoint.Application")
If Err.Number = 429 Then
Err.Clear
MsgBox "Silakan buka PowerPoint dulu," & vbCrLf & _
"kemudian buka file presentasi" & vbCrLf & _
"yang ingin Anda salin grafiknya.", 48, "Maaf, Tidak bisa dilanjutkan."
Range("A1").Select
Exit Sub
End If
7. Tetapkan presentasi yang membuka:
8. Tetapkan acuan ke slide tujuan yang akan dipilih secara manual:
9. Salin grafik yang terpilih:
10. Pasang grafik pada slide:
11. Pilih gambar grafik yang telah dipasang ke slide PowerPoint:
12. Sejajarkan gambar grafik agar terletak di tengah-tengah slide:
.Align msoAlignCenters, msoTrue
.Align msoAlignMiddles, msoTrue
End With
13. Letakkan pointer ke sel A1 di worksheet agar tidak menunjuk pada grafik;
14. Lepaskan memori sistem yang tersedia untuk ketiga variabel objek berikut:
Set B = Nothing
Set C = Nothing
Berikut kode lengkapnya:
Dim A As Object, B As Object, C As Object
ActiveSheet.ChartObjects(1).Select
On Error Resume Next
Set A = GetObject(, "Powerpoint.Application")
If Err.Number = 429 Then
Err.Clear
MsgBox "Silakan buka PowerPoint dulu," & vbCrLf & _
"kemudian buka file presentasi" & vbCrLf & _
"yang ingin Anda salin grafiknya.", 48, "Maaf, Dibatalkan."
Range("A1").Select
Exit Sub
End If
Set B = A.ActivePresentation
Set C = B.Slides(A.ActiveWindow.Selection.SlideRange.SlideIndex)
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
C.Shapes.Paste
C.Shapes(1).Select
With A.ActiveWindow.Selection.ShapeRange
.Align msoAlignCenters, msoTrue
.Align msoAlignMiddles, msoTrue
End With
Range("A1").Select
Set A = Nothing
Set B = Nothing
Set C = Nothing
End Sub
Tekan Alt+Q untuk kembali ke worksheet dan silakan Anda uji coba macro SalinGrafikTertempel yang telah Anda susun dengan cara tekan Alt+F8.
Demikian cara menyalin ke slide PowerPoint sebuah grafik tertempel yang ukurannya lebih mudah disesuaikan sendiri daripada grafik sheet.
Silakan Anda coba praktekkan dan semoga postingan ini bermanfaat.