Dear Mr. Herry Sutjipto Kode sudah baik Pak, dan memang ada 2 object Striped Right Arrow disana. Hapus saja object Striped Right Arrow 2 pada sheet Master, maka semua berjalan normal sesuai keinginan.
Best Regards Kid. 2010/1/13 Herry Sutjipto <[email protected]> > 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:* [email protected] [mailto:[email protected]] *On > Behalf Of *siti Vi > *Sent:* 13 Januari 2010 0:51 > > *To:* [email protected] > *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 <[email protected]> > > *To:* [email protected] > > *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. > > > > [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 > > > >
<<image001.png>>
