RE: ]] XL-mania [[ mengunci dan mengunci

Dear Miss Siti Vi and all,

 

Iya mudah sekali ya untuk mencari namanya …… he he he …. Rupanya disitu toh letak ngumpet nama nya …..

Surat perintah miss Siti Vi sudah saya laksanakan …… tetapi VBA nya (terlampir)  bandel …..

Mungkin ada perintah Miss Siti yang salah saya artikan ……. he he he …..

Harap pencerahan ….

Terima kasih

 

Best regards

Herry Sutjipto

 

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of siti Vi
Sent: 13 Januari 2010 0:51
To: XL-mania@yahoogroups.com
Subject: Re: ]] XL-mania [[ mengunci dan mengunci

 

 

mengapa menemukan nama kok menjadi sulit ??

setiap shape di sheet jika di-select, tentunya 'sih' menampilkan NAMANYA

di NameBox; mosok ndak kelihatan 'sih'..  ?

dlm keadaan worksheet di protected, seringnya object tsb tidak dapat diselect.

 

object itu 'sih' namanya : Striped Right Arrow 4

 

misalnya banyak pun; 'kan dapat di loop dengan

"for each object in objectscollection"

 

 

----- Original Message -----

From: Herry Sutjipto

To: XL-mania@yahoogroups.com

Sent: Tuesday, January 12, 2010 4:09 PM

Subject: RE: ]] XL-mania [[ mengunci dan mengunci

 

Dear Miss Siti Vi and all,

 

Perintahnya sih gampang, tapi menemukan/mencari nama “Gambar Tombol” nya yang sulit.

 

 

Dalam attachment terlampir saya kesulitan menemukan/mencari nama “Gambar Tombol” tersebut.

Bagaimana cara menemukan/mencari nya?

Thank’s

 

Best regards

Herry Sutjipto

 

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of siti Vi
Sent: 12 Januari 2010 11:04
To: XL-mania@yahoogroups.com
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