Tips Menambahkan Suatu Grafik ke Dalam Sebuah Sheet Grafik
Sheet grafik merupakan jenis sheet yang istimewa dalam workbook karena berisi suatu grafik saja dalam keadaan tertanam.
Jika grafik yang disiapkan berukuran besar dan sangat rumit, maka grafik seringkali ditempatkan pada sheet-nya sendiri sehingga dapat lebih mudah untuk dilihat secara rinci.
Dalam VBA, jika Anda membuka jendela Immediate, cukup dengan menjalankan garis kode Charts.Add lalu menekan tombol Enter saja, Excel akan langsung membuat suatu sheet grafik baru.
Apabila sel yang aktif berada di dalam suatu tabel data, maka dengan sendirinya jenis grafik dibuat pada sheet grafik baru menurut data yang terbaca properti CurrentRegion dari sel terpilih, namun apabila tidak ada data yang terpilih sama sekali, sheet grafik baru dibuat dengan objek grafik yang kosong menunggu sumber datanya.
Perintah tersebut juga berlaku sama seperti ketika Anda menekan tombol F11 melalui keyboard yang secara langsung akan membuat sheet grafik baru.
Gambar di atas menunjukkan suatu contoh tabel penjualan bulanan yang menjadi sumber data untuk contoh grafik.
Kode macro di bawah ini akan menghasilkan grafik kolom pada sheet grafik baru berdasarkan data pada gambar tersebut.
Jika properti Location dari objek Chart tidak ditentukan, seperti pada kode macro berikut, maka grafik akan dibuat pada sheet grafik-nya sendiri.
Ikuti langkah-langkah berikut untuk menyusun kode macro:
1. Persiapkan tabel data seperti contoh dalam gambar di atas.
2. Buka VBE dengan menekan tombol Alt+F11.
3. Buat module baru melalui menu Insert > Module.
4. Beri judul macro misalnya BuatSheetGrafik, ketik:
Sub BuatSheetGrafik()
5. Tetapkan objek variabel dengan jenis data grafik:
Dim gs As Chart
6. Tetapkan variabel untuk menambahkan grafik:
Set gs = Charts.Add
7. Tentukan sumber data grafik baru, tabel berada di Sheet1 dan meskipun Anda mungkin bisa mengacu pada barisan sel yaitu A1:B13 sebagai sumber data, untuk meminimalisir kesalahan penulisan maka Anda bisa menggunakan properti CurrentRegion:
Source:=Worksheets("Sheet1").Range("A1").CurrentRegion, _
PlotBy:=xlColumns
8. Tentukan jenis grafiknya, misalnya grafik kolom maka pilihannya Column Clustered:
gs.ChartType = xlColumnClustered
9. Hapus legenda karena tidak berguna:
ActiveChart.Legend.Delete
10. Susunan lengkap kode macro sebagai berikut:
Dim gs As Chart
Set gs = Charts.Add
gs.SetSourceData _
Source:=Worksheets("Sheet1").Range("A1").CurrentRegion, _
PlotBy:=xlColumns
gs.ChartType = xlColumnClustered
ActiveChart.Legend.Delete
End Sub
11. Buka kembali worksheet dengan menekan Alt+Q.
12. Jalankan macro dengan menekan Alt+F8 lalu pilih BuatSheetGrafik dan klik Run.
Itulah penjelasan mengenai cara menambahkan grafik ke dalam suatu sheet grafik yang tertanam di Excel.
Selamat mempraktikkan dan semoga postingan ini bermanfaat.