Cara Memindahkan Grafik yang Tertempel ke Sheet Lain pada File Workbook Excel dengan Macro VBA
Objek contohnya grafik yang tertempel di atas worksheet dapat dipindahkan ke worksheet lain dengan menggunakan konsep yang sama seperti yang telah dijelaskan pada postingan sebelumnya yaitu Cara Mengganti Sheet Grafik Menjadi Grafik yang Tertempel di Atas Worksheet dan Sebaliknya dengan Macro VBA Excel.
Siapkan terlebih dahulu sumber data dan grafik pada workbook atau file Excel sebagai contoh untuk mempraktikkan tutorial ini.
Ikuti langkah-langkah berikut untuk menyusun kode macro:
1. Buat Sheet2 terlebih dahulu dimana grafik akan Anda tempatkan.
2. Buka VBE dengan menekan Alt+F11.
3. Buat module baru melalui menu Insert > Module.
4. Pada module, berikan judul macro:
Sub GrafikTertempelKeSheetLain()
5. Tepat di bawah garis kode di atas, tentukan nama grafik yang akan dipindahkan ke dalam Sheet2 misalnya Chart 1:
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet2"
6. Sel B6 dijadikan tempat grafik (sudut kiri atas grafik):
ActiveChart.Parent.Left = .Range("B6").Left
ActiveChart.Parent.Top = .Range("B6").Top
End With
7. Keluar dari tampilan grafik dengan mengaktifkan sel A1:
Range("A1").Select
8. Susunan kode macro lengkapnya menjadi sebagai berikut:
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet2"
With Worksheets("Sheet2")
ActiveChart.Parent.Left = .Range("B6").Left
ActiveChart.Parent.Top = .Range("B6").Top
End With
Range("A1").Select
End Sub
9. Tekan Alt+Q untuk kembali ke worksheet.
18. Tekan Alt+F8 untuk membuka Macro lalu pilih GrafikTertempelKeSheetLain lalu klik Run.
Itulah sedikit penjelasan mengenai cara memindahkan grafik yang tertempel ke sheet lain pada file workbook Excel yang sama.
Selamat mempraktikkan dan semoga bermanfaat.