coba gunakan makro ini untuk hapus semua shape : Sub hapus_shape()
Dim wsh As Worksheet
Dim sh As Shape
Set wsh = Worksheets("jurnal")
For Each sh In wsh.Shapes
sh.Delete
Next
End Sub semoga membantu....
To: [email protected]
From: [email protected]
Date: Tue, 28 Jun 2011 13:15:41 +0700
Subject: Re: [belajar-excel] Re: Misterius Text Box
Jika seluruh shape boleh hilang, coba tambahkan ekstensi zip dan cari
folder drawing didalam zip
hapus file yang ada di dalam folder drawing.
keluar dari zip, dan hilangkan ekstensi .zip
buka file, save as nama lain.
Kid.
2011/6/28 summonery <[email protected]>
Dear pak Hendrik,
Saya pernah mendapat kasus seperti ini juga dari rekan kerja, curhat bahwa file
nya lambat sewaktu opening, saving, calculating
setelah diselikidi ternyata ada textbox yang beranak pinak di sheetnya, si
empunya file tidak merasa pernah menginsert textbox tsb.
Object yang sangat banyak tersebut membuat file membengkak dan lambat dalam
prosesnya,
Coba pak,,
Delete Object:
Dari pengalaman saya di kasus seperti ini, delete object cukup menyita waktu
dan harus sabar menunggu.
Menggunakan Workbook baru:
Copy paste seluruh data yang ada pada file/sheet tersebut ke Workbook yang
baru, gunakan Copy Paste Special ALL.
Object yang ada tidak akan ikut ter-copy dan workbook baru anda ukurannya jauh
lebih kecil dan tidak lambat lagi, semoga.
Selamat menempati "rumah" baru untuk data anda :)
>semoga bermanfaat
--- In [email protected], hendrik karnadi <hendrikkarnadi@...>
wrote:
>
> Saya punya file Excel yang "kemasukan misterius text box" yang tidak jelas
> asal usulnya (pada kolom tanggal), sehingga membuat Excel jadi lemot.
>
> Mohon bantuan/solusi dari teman2 yang pernah mengalamai hal serupa.
>
> Terima kasih.
>
> Salam,
> Hendrik Karnadi
>
>
>
