Cara Hapus Semua Gambar Sekaligus

Halo kawan-kawan, senang sekali bisa bersua kembali. Kali ini mimin akan memberi beberapa contoh code macro VBA untuk menghapus gambar (shape) pada lembar kerja Ms Excel. 

Ada beberapa type gambar (shape di excel). Bahkan comment box juga dikategorikan sebagai shape, sehingga apabila tidak dibuat pengecualian dalam code macro yang kita buat, maka comment box akan ikut terhapus.

Baik, langsung saja menuju TKP. Mimin sarankan untuk langsung copy dan paste code ke dalam module vba standar dalam kumpulan macro yang kamu miliki, sehingga dapat segera dicoba dan dirasakan hasilnya.

1. Delete Semua Obyek Gambar dalam Activesheet

Untuk menghapus semua obyek gambar dalam sheet yang sedang active maka gunakan contoh code di bawah ini.

Sub HapusSemuaObyekGambarDalamSheetActive_1() Dim Ws As Worksheet Application.ScreenUpdating = False Set Ws = ActiveSheet Ws.Shapes.SelectAll Selection.Delete End Sub

Atau bisa juga menggunakan contoh berikut:

Sub HapusSemuaObyekGambarDalamSheetActive_2() Dim Ws As Worksheet, Gambar As Shape Set Ws = ActiveSheet For Each Gambar In Ws.Shapes If Not Gambar.Type = msoComment Then Gambar.Delete End If Next End Sub

Cara menggunakan code:

• Copas code ke modul vba standar
• Activekan sheet (masuk ke sheet) yang akan dihapus conten gambar di dalamnya
• Jalankan macro (Tab Developer ⇨ Macros ⇨ Pilih nama macro yang sesuai ⇨ Run

2. Delete Semua Obyek Picture Dalam Activesheet

Jika kamu hanya ingin hanya menghapus obyek Picture maka gunakan code berikut:

Sub HapusHanyaObyekPictureDalamSheetActive() Dim Ws As Worksheet, Gambar As Shape Set Ws = ActiveSheet For Each Gambar In Ws.Shapes If Gambar.Type = msoPicture Then Gambar.Delete End If Next End Sub

Keterangan:

Yang dimaksud obyek Picture adalah gambar yang diperoleh dari hasil insert Picture. Bisa juga dari hasil copy paste special as picture. 

Cara menggunakan code macro nomor 2 ini sama dengan macro nomor 1.

3. Delete Semua Obyek Gambar Dalam Range Terpilih

Jika kamu ingin membatasi delete gambar hanya pada range yang dipilih maka gunakan berikut:

Sub HapusSemuaObyekGambarDalamRangeTerpilih() Dim Ws As Worksheet, rangeTerpilih As Range Dim Gambar As Shape, rangeGambar As Range Set Ws = ActiveSheet Set rangeTerpilih = Selection For Each Gambar In Ws.Shapes Set rangeGambar = Range(Gambar.TopLeftCell, Gambar.BottomRightCell) If Not Intersect(rangeGambar, rangeTerpilih) Is Nothing Then If Not Gambar.Type = msoComment Then Gambar.Delete End If End If Next End Sub

Cara gunain code nomor 3:

• Copas code ke modul vba standar
• Activekan sheet (masuk ke sheet) yang akan dihapus conten gambar di dalamnya
• Pilih (seleksi) range yang ingin kamu hapus konten gambarnya
• Jalankan macro (Tab Developer ⇨ Macros ⇨ Pilih nama macro yang sesuai ⇨ Run

4. Delete Semua Obyek Picture Dalam Range Terpilih

Jika kamu hanya ingin menghapus gambar jenis Picture pada range terpilih maka gunakan contoh code macro berikut:

Sub HapusHanyaObyekPictureDalamRangeTerpilih() Dim Ws As Worksheet, rangeTerpilih As Range Dim Gambar As Shape, rangeGambar As Range Set Ws = ActiveSheet Set rangeTerpilih = Selection For Each Gambar In Ws.Shapes Set rangeGambar = Range(Gambar.TopLeftCell, Gambar.BottomRightCell) If Not Intersect(rangeGambar, rangeTerpilih) Is Nothing Then If Gambar.Type = msoPicture Then Gambar.Delete End If End If Next End Sub

Adapun cara menggunakan code tersebut (macro nomor 4) sama dengan contoh macro nomor 3.

Jika kamu ingin menghapus jenis gambar yang lebih spesifik, silahkan tinggal diatur saja type gambarnya.

Misalnya:

Gambar.Type = msoChart

Gambar.Type = msoAutoShape

dan sebagainya. list type gambar akan terdisplay secara otomatis ketika kita mengetik Gambar.Type = seperti diperlihakan dalam screenshot vba di bawah ini.

***

Itulah beberapa contoh code VBA untuk menghapus gambar di excel. 

Jika kamu tertarik mengetahui lebih banyak mengenai contoh code macro VBA Excel, silahkan telusuri konten blog ini via Daftar Isi.  Atau postingan berikut barangkali berguna buat kamu.

• Cara Mengisi Sel Kosong
• Cara Insert Kolom Sekaligus
• Cara Insert Baris Sekaligus

Mimin sangat berterimakasih apabila teman-teman bisa berbagi saran dan koreksi untuk perbaikan blog ini. Jangan segan-segan untuk tinggalkan pesan di kolom komentar ya.

Salam...😎😎😎