Menghapus Semua Object Gambar Dan Lainya Pada Excel Dengan VBA

12/12/2021 3202

Tutorial
Menghapus Semua Object Gambar Dan Lainya Pada Excel Dengan VBA

Kadang pada microsoft excel terasa lambat saat membuka file bisa saja terjadi karena file excel tersebut terlalu banyak object gambar atau banya object yang terduplikasi, biasanya saya menghapusnya dengan menjalankan VBA di excel, dengan ALT + F11 kemudian menambahkan modul VBA Menu => Insert => Modul kemudian pastekan isi script dibawah ini

Sub DeletePictures()
   Dim oPic As Shape
   Dim wb As Workbook
   Dim ws As Worksheet
   'loop through all worksheets
   For Each ws In ActiveWorkbook.Worksheets
   'loop through all objects in selected worksheet
      For Each oPic In ws.Shapes
      'delete object
         oPic.Delete
      Next oPic
   Next ws
End Sub

Kemudian Run, tunggu sampai proses selesai biasanya tergantung seberapa banyak object yang ada pada file.

Posted By
Avatar
Super Admin
Web Developer, Designer, and Teacher
Top Reads