Cara Mengganti Sheet Grafik Menjadi Grafik yang Tertempel di Atas Worksheet dan Sebaliknya dengan Macro VBA Excel
Biasanya Anda mengganti atau memindahkan sheet grafik menjadi sebuah grafik yang tertempel di atas worksheet dan begitu juga sebaliknya dengan cara meng-klik-kanan area grafik dan menggunakan menu Move Chart, tip berikut ini akan menjelaskan cara menyusun kode macro untuk menjalankan perintah Move Chart tersebut.
Siapkan terlebih dahulu sumber data dan grafik pada workbook atau file Excel sebagai contoh untuk mempraktikkan tutorial ini.
Cara Mengganti Sheet Grafik Menjadi Grafik yang Tertempel di Atas Worksheet
Untuk memindahkan suatu grafik dari sheet grafik ke dalam worksheet lain maka Anda harus memprogram sheet grafik agar dipilih lalu menentukan worksheet manakah yang ingin Anda tempatkan grafik tersebut karena jika dibiarkan begitu saja dan VBA yang memutuskan maka grafik yang dihasilkannya mungkin saja tidak akan sesuai dengan yang Anda inginkan.
Ikuti langkah-langkah berikut untuk menyusun kode macro:
1. Buka VBE dengan menekan Alt+F11.
2. Buat module baru melalui menu Insert > Module.
3. Pada module, berikan judul macro:
Sub SheetGrafikKeWorksheet()
4. Tepat di bawah garis kode di atas, tentukan nama sheet grafiknya contohnya Chart1:
Sheets("Chart1").Select
5. Pindahkan grafik ke Sheet1:
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
6. Sel C3 dijadikan sebagai sudut kiri atas letak grafik:
With Worksheets("Sheet1")
ActiveChart.Parent.Left = .Range("C3").Left
ActiveChart.Parent.Top = .Range("C3").Top
End With
7. Keluar dari tampilan grafik dan aktifkan sel A1:
Range("A1").Select
8. Kode lengkapnya adalah:
Sheets("Chart1").Select
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With Worksheets("Sheet1")
ActiveChart.Parent.Left = .Range("C3").Left
ActiveChart.Parent.Top = .Range("C3").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 SheetGrafikKeWorksheet lalu klik Run.
Cara Mengganti Grafik yang Tertempel di Atas Worksheet Menjadi Sheet Grafik
Untuk memindahkan grafik yang tertempel di atas suatu worksheet ke Sheet Grafik, yang Anda perlukan adalah menentukan nama atau daftar nomor grafik Anda.
Jika Anda hanya mempunyai sebuah grafik saja di dalam worksheet, maka properti grafik adalah 1, namun alangkah baiknya jika grafik dinyatakan sesuai dengan nama grafiknya untuk menghindari kesalahan misalnya grafik tertukar.
Adapun nama grafik yang tertempel dapat Anda tuliskan melalui Name Box (di samping kiri Formula Bar) dengan terlebih dahulu memilih grafiknya.
Kode macro yang dapat Anda susun lebih sederhana karena sheet grafik hanya berisi satu buah grafik saja, jadi Anda tidak perlu menentukan letak seperti cara di atas, silakan Anda tambahkan macro berikut di bawah macro SheetGrafikKeWorksheet pada module yang sama:
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Chart1"
End Sub
Demikian cara mengubah grafik dari sheet grafik ke grafik tertempel di atas worksheet dan sebaliknya dengan menggunakan Macro VBA Excel.
Selamat mencoba dan semoga postingan ini bermanfaat.