Cara Mengulang Tugas pada Semua Grafik yang Tertempel di Suatu Workbook
Pembahasan kali ini masih seputar grafik Excel, kami akan berbagi sebuah kode macro berikut yang akan mempertunjukkan bagaimana Anda melakukan loop (mengulang tugas) pada suatu grafik yang tertempel di dalam setiap worksheet pada suatu file atau workbook Excel, yang mana contoh tugasnya adalah mewarnai latar belakang grafik dengan warna tertentu dalam contoh warna standar jingga yaitu nomor 46.
Apabila terdapat beberapa buah grafik tertempel yang awalnya dibuat dengan menggunakan background warna yang berbeda-beda, Anda mungkin ingin membuat background grafik-grafik tersebut supaya berpenampilan seragam dengan skema warna yang sama, maka macro di bawah ini sangat tepat untuk menangani pekerjaan tersebut.
Siapkan terlebih dahulu sumber data dan grafik yang tertempel pada workbook atau file Excel sebagai contoh untuk mempraktikkan tutorial ini.
Silakan Anda 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 LoopGrafikTertempel()
4. Tepat di bawahnya, matikan ScreenUpdating dengan mengetik:
Application.ScreenUpdating = False
5. Tetapkan variabel untuk Sheet dan objek grafik:
Dim w As Worksheet, og As ChartObject
6. Buka metode loop untuk setiap sheet:
For Each w In Worksheets
7. Tentukan jika sheet memiliki sedikitnya sebuah grafik:
If w.ChartObjects.Count > 0 Then
8. Jika sheet berisi suatu grafik, maka pilih sheet tersebut:
w.Activate
9. Loop ke setiap objek grafiknya:
For Each og In ActiveSheet.ChartObjects
10. Pilih grafik:
og.Activate
11. Warnai area background grafik dengan warna jingga:
ActiveChart.ChartArea.Interior.ColorIndex = 46
12. Keluar dari tampilan grafik sebelum melakukan tugas yang sama pada grafik berikutnya di sheet lainnya:
Range("A1").Select
13. Lanjutkan dan tutup loop untuk setiap grafik pada sheet-nya:
Next og
14. Tutup struktur If jika sheet tidak berisi grafik sama sekali:
End If
15. Lanjutkan dan tutup loop untuk setiap sheet:
Next w
16. Hidupkan kembali ScreenUpdating:
Application.ScreenUpdating = True
17. Kode lengkapnya adalah:
Application.ScreenUpdating = False
Dim w As Worksheet, og As ChartObject
For Each w In Worksheets
If w.ChartObjects.Count > 0 Then
w.Activate
For Each og In ActiveSheet.ChartObjects
og.Activate
ActiveChart.ChartArea.Interior.ColorIndex = 46
Range("A1").Select
Next og
End If
Next w
Application.ScreenUpdating = True
End Sub
18. Tekan Alt+Q untuk kembali ke worksheet.
19. Tekan Alt+F8 untuk membuka Macro lalu pilih LoopGrafikTertempel lalu klik Run.
Itulah sedikit penjelasan tentang cara melakukan loop (mengulang tugas) pada suatu grafik yang tertempel di dalam setiap worksheet pada suatu file atau workbook Excel.
Selamat mempraktikkan dan semoga postingan ini bermanfaat.