Trik Cepat Memindahkan Semua Sheet Grafik ke Dalam Workbook Baru dengan Macro VBA Excel
Kali ini kami akan berbagi tip memindahkan semua grafik yang tertanam di dalam sheet-nya sendiri (sheet grafik) dari workbooknya semula ke dalam workbook yang baru.
Adapun contoh kode macro berikut berisi perintah sederhana untuk membuat sebuah workbook baru lalu melakukan pemindahan tempat terhadap sheet grafik yang akan ditempatkan sebelum tab Sheet1 pada workbook baru tersebut.
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. Buka VBE dengan menekan Alt+F11.
2. Buat module baru melalui menu Insert > Module.
3. Pada module, berikan judul macro:
Sub SheetGrafikKeWorkbook()
4. Tepat di bawah garis kode di atas, tetapkan variabel untuk nama workbook yang sheet grafiknya akan dipindahkan:
Dim x As String
5. Tetapkan nama workbook:
x = ActiveWorkbook.Name
6. Tambahkan sebuah workbook baru:
Workbooks.Add 1
7. Salin sheet grafik dari workbook asal ke dalam workbook barunya:
Workbooks(x).Charts.Move before:=Sheets(1)
8. Kode lengkapnya menjadi:
Dim x As String
x = ActiveWorkbook.Name
Workbooks.Add 1
Workbooks(x).Charts.Move before:=Sheets(1)
End Sub
9. Tekan Alt+Q untuk kembali ke worksheet.
10. Tekan Alt+F8 untuk membuka Macro lalu pilih SheetGrafikKeWorkbook lalu klik Run.
Itulah sedikit penjelasan tentang cara tercepat memindahkan semua sheet grafik ke dalam workbook baru dengan Macro VBA Excel.
Selamat mempraktikkan dan semoga bermanfaat.