Dear Mr. Herry Sutjipto, Kode program untuk menghapus shapes memang demikian. Syaratnya telah tahu namanya.
Jika gambar seperti itu, nama shape biasanya diawali dengan striped arah
arrow (karena hadap kanan jadi striped right arrow) yang diikuti dengan
nomor object, misal striped right arrow 1 dsb
Jadi pada kode :
Activesheet.shapes("striped right arrow 1").delete
Regards
Kid.
2010/1/12 Herry Sutjipto <[email protected]>
> Dear Miss Siti Vi and all,
>
>
>
> Perintahnya sih gampang, tapi menemukan/mencari nama “Gambar Tombol” nya
> yang sulit.
>
>
>
> [image: Copy Sheets.png]
>
>
>
> Dalam attachment terlampir saya kesulitan menemukan/mencari nama “Gambar
> Tombol” tersebut.
>
> Bagaimana cara menemukan/mencari nya?
>
> Thank’s
>
>
>
> Best regards
>
> Herry Sutjipto
>
>
>
> *From:* [email protected] [mailto:[email protected]] *On
> Behalf Of *siti Vi
> *Sent:* 12 Januari 2010 11:04
>
> *To:* [email protected]
> *Subject:* Re: ]] XL-mania [[ mengunci dan mengunci
>
>
>
>
>
> ya tinggal nambah"in" perintah *menghapus gambar tombol* saja *dong*.
>
>
>
> (sambil diperingkas dikittt...)
>
>
>
> Sub CopySheet()
> Sheets("Template Sheet").Copy After:=Sheets(Sheets.Count)
> ActiveSheet.Name = InputBox("Silakan masukan Nama sheet yang akan Anda
> create", "Sheet Baru")
> *ActiveSheet.Shapes("button 1").Delete**
> *End Sub
>
>
>
>
>
>
> ----- Original Message -----
> From: Herry Sutjipto
> To: [email protected]
> Sent: Tuesday, January 12, 2010 7:22 AM
> Subject: RE: ]] XL-mania [[ mengunci dan mengunci
>
> Dear Mr Syamsul and all,
> Good idea ….. tapi *gimana dong supaya Command button tidak ikut tercopy*?
> He he he …. Nambahin kerjaan ajah …
>
> Best regards
> Herry Sutjipto
>
> From: [email protected] [mailto:[email protected]] On Behalf
> Of Syamsul Arief
> Sent: 10 Januari 2010 10:20
> To: [email protected]
> Subject: Re: ]] XL-mania [[ mengunci dan mengunci
>
> Sbg tambahan sahaja, untuk kasus2 semacam ini (copy sheet/form baru) saya
> akan bikin satu sheet ‘generic’ dulu yg kosong tapi berformat, selajutnya
> copy new sheet/form dari situ.
>
> syamsul
>
>
<<image001.png>>
