Re: ]] XL-mania [[ hilangkan ribuan (mungkin) line straight connectors

 

Dear Tommy,

Mainkan saja cuplikan macro Miss ctv pada file ctv_Membuat Grafik dgn
LINE Shape (V3).xls http://www.box.net/shared/3hv3xkta9u :

'untuk Office 2003
Dim Lin As Shape
For Each Lin In ActiveSheet.Shapes
If LCase(Left(Lin.Name, 4)) = "line" Then Lin.Delete
Next Lin

'untuk Office 2007
Dim Lin As Shape
For Each Lin In ActiveSheet.Shapes
If Left(Lin.Name, 18) = "Straight Connector" Then Lin.Delete
Next Lin

Dapat digunakan bantuan looping untuk sheet yang buanyak.

Semoga membantu.

Blessings,

Fran'z

On 6/1/11, Tommy <tomz.zlow@gmail.com> wrote:
> Dear xl-mania-wan/wati,
>
> Basa-basi pengantar dulu, teman kantor ada yang ngeluh, tiap kali save absen
> bulanan, file jadi nambah gede sendiri dan otomatis jadi super lemot.. (gak
> tau dia disable auto recovery atau gak... tapi yang jelas lemot abis)...
>
> New-bie coba menolong dengan jurus seadanya. Pertama new-bie pikir ada
> coding macro, jadi disable makro dan buka file. Dengan laptop tua, New-bie
> baru bisa buka file setelah tunggu 8 menit (besar file yang dikirimkan teman
> kantor >300Mb -- bisa muat filem sinetron satu episode).
>
> Dan setelah buka, dan teliti pakai kacamata, ternyata ada dua garis di row
> 30 dan 31. Coba hapus-hapus manual, eh.. gak kelar-kelar. New-bie iseng
> save, dan ternyata setelah beberapa kali hapus tadi, file berkurang dikit.
>
> Sekarang intinya: malu bertanya - kerja manual sampai mampus. Untuk kerja
> manual, saya yakin semua bisa. tinggal copy paste tanpa mengikutkan garis
> bermasalah itu. Tapi masalahnya ada banyak sheet, ada banyak file (per
> bulan) juga yang mau di'kecilkan' ukurannya.
>
> Terlampir contoh satu sheet yang saya maksud. Saya serahkan ke yang maniak
> excel lah... Thanks in advance
>
> regards,
> tomz

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 77

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| maaf baru moderate sekarang... momods kurang tidur berhari-hari   |
| jadi budak kantoooOOooorrr...                                     |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___