Cara Membuat Grafik Tertempel dengan Macro VBA Excel
Pada kesempatan kali ini kami akan berbagi tip membuat contoh grafik tertempel dengan jenis grafik atau bagan bulat dalam 3 dimensi dilengkapi dengan legenda dengan warna-warna menurut ColorIndex serta ditempatkan di dekat sumber datanya.
Grafik bulat ini terdiri dari lima potongan data yang memiliki warnanya masing-masing dan menampilkan keterangan data pada setiap potongannya.
Seperti yang ditunjukkan pada gambar contoh worksheet dan grafik berikut:
Ikuti langkah demi langkah berikut ini:
1. Buat dan susun tabel sederhana seperti pada contoh gambar di atas.
2. Tekan Alt+F11 untuk membuka VBE.
3. Buat module melalui menu Insert > Module.
4. Pada module baru, beri nama macro misalnya GrafikBulat3D:
Sub GrafikBulat3D()
5. Tepat di atas garis kode di atas, tetapkan variabel berjenis ChartObject:
Dim g As ChartObject
6. Tetapkan variabel pada grafik yang akan ditambahkan. Tempatkan grafik di dekat sumber datanya, parameter Left menentukan jarak dari titik ujung kiri dari ChartObject ke bagian sisi kiri worksheet, parameter Top menentukan jarak dari titik atas ChartObject ke sisi atas worksheet. Adapun parameter Width dan Height menentukan ukuran panjang dan lebar ChartObject dengan satuan ukuran yang digunakan adalah point:
ActiveSheet.ChartObjects.Add _
(Left:=190, Width:=340, Top:=5, Height:=240)
7. Tetapkan barisan data untuk grafik:
g.Chart.SetSourceData Source:=Range("A3:B8")
8. Tetapkan jenis grafiknya, misalnya grafik bulat 3DPie:
g.Chart.ChartType = xl3DPie
9. Pilih grafik baru tersebut:
ActiveSheet.ChartObjects(1).Activate
10. Warnai legenda agar setiap potongan data mudah dibaca:
.LegendEntries(1).LegendKey.Interior.Color = RGB(51, 204, 204)
.LegendEntries(2).LegendKey.Interior.Color = RGB(153, 204, 0)
.LegendEntries(3).LegendKey.Interior.Color = RGB(255, 204, 0)
.LegendEntries(4).LegendKey.Interior.Color = RGB(255, 153, 0)
.LegendEntries(5).LegendKey.Interior.Color = RGB(255, 102, 0)
End With
11. Tambahkan label data pada grafik untuk melihat bilangan pada potongan grafik:
ActiveChart.SeriesCollection(1).ApplyDataLabels
12. Edit judul grafik:
ActiveChart.ChartTitle.Text = "Grafik Penjualan"
13. Format legenda:
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 12
End With
14. Keluar dari tampilan grafik dengan mengaktifkan sel A1:
Range("A1").Select
15. Tekan Alt+Q untuk kembali ke worksheet dan uji coba macro Anda yang mana keseluruhan kodenya adalah sebagai berikut:
Dim g As ChartObject
Set g = _
ActiveSheet.ChartObjects.Add _
(Left:=190, Width:=340, Top:=5, Height:=240)
g.Chart.SetSourceData Source:=Range("A3:B8")
g.Chart.ChartType = xl3DPie
ActiveSheet.ChartObjects(1).Activate
With ActiveChart.Legend
.LegendEntries(1).LegendKey.Interior.Color = RGB(51, 204, 204)
.LegendEntries(2).LegendKey.Interior.Color = RGB(153, 204, 0)
.LegendEntries(3).LegendKey.Interior.Color = RGB(255, 204, 0)
.LegendEntries(4).LegendKey.Interior.Color = RGB(255, 153, 0)
.LegendEntries(5).LegendKey.Interior.Color = RGB(255, 102, 0)
End With
ActiveChart.SeriesCollection(1).ApplyDataLabels
ActiveChart.ChartTitle.Text = "Grafik Penjualan"
ActiveChart.Legend.Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 12
End With
Range("A1").Select
End Sub
Demikian pembahasan mengenai cara membuat grafik tertempel dengan Macro VBA Excel.
Selamat mempraktikkan dan semoga bermanfaat.