Coba pakai Code ini, buatan salah satu pakar yang pernah dimuat dalam milis ini
Sub hapus_shape()
Dim wsh As Worksheet
Dim sh As Shape
Set wsh = Worksheets("NamaWorkSheet")
For Each sh In wsh.Shapes
sh.Delete
Next
End Sub
Salam,
Hendrik Karnadi
________________________________
From: rizal <[email protected]>
To: [email protected]
Sent: Tuesday, 19 June 2012, 10:17
Subject: ]] XL-mania [[ Bahasa VB Select & delete bitmap
Dear Pakar Excel,
Saya ada masalah di pembuatan report di excel.
Di dalam report tsb, ada gambar dgn nama prtpie1.
Sya juga menggunakan macro untuk otomatisasi laporan.
Mohon bantuannya, bagaimana bahasa VB untuk select dan hapus gambar prtpie1 tsb?
Atas perhatiannya terima kasih.
Salam,
Icalg
