Svi načini koje ja znam svode se na nekakvo probanje. Jedan mogući način:
1/ Na radnom listu klikneš na textbox koji želiš da popuniš slikom u gornjem levom uglu (Name Box) prikazaće se naziv tog TextBoxa.
Sad kad znaš naziv
2/ U VBE (Alt +F11) otvoriš Immediate Window (Ctrl+G)
3/ U Immediate window otkucaš
Code:
?Sheets("Kanban").Shapes.count
pa Enter i dobićeš koliko ukupno ima oblika.
4/ Potom možeš da pronadješ imena svakog menjajući indeks (7 u ovom slučaju)
Code:
?Sheets("Kanban").Shapes(7).Name
I kad pronadješ naziv text boxa koji odgovara onom što već imaš iz koraka 1 to bi trebalo da bude taj indeks.
Umesto po indesku kolekciji shape možeš da pristupaš i po nazivu, tj. da zanemariš korake 2, 3 i 4 npr. umesto
Code:
Set Sh = Sheets("Kanban").Shapes(7)
koristiš
Code:
Set Sh = Sheets("Kanban").Shapes("Textbox 1")
Nije to loše Rembrante, samo što ne bi dodao još malo boje?