[ vampslayer @ 09.04.2011. 16:54 ] @
Imam grupu koju cine aktivneXKontrole
Code:

Private Sub CommandButton3_Click()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes("Group 3")
    MsgBox (shp.Name)
Next shp
End Sub


Zasto ovo ne radi.

2. Problem: Kojim redoslijedom ce mi dobavljati ove kontrole iz grupe
Mislim ako imam 3 labela unutra, i on mi ih dobavlja label1,pa label2 pa label3,a ja hocu label3,label1 pa label2.
Kako to postici
[ Jpeca @ 10.04.2011. 18:26 ] @
Da pristupiš pojedinačnom objektu iz grupisanih kontrola koristiš GroupItems svojstvo


Code:
Sub test()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes("Group 3").GroupItems
    MsgBox (shp.Name)
Next shp
End Sub


Pojavljivanje će biti po rednim brojevima po kojima su dodati u grupu ali kako se ti redni brojevi formiraju ja nisam uspeo da zaključi. Dakle možeš im pristupati koristeći odrgovarajući redni broje

ActiveSheet.Shapes("Group 9").GroupItems(2).Name
[ vampslayer @ 11.04.2011. 14:12 ] @
Hvala ti radi sad,a ja mislim da ovaj redosljed ide prema Zorder,
Ako im ispisem Zorder.Position vazda onaj sa manjom pozicijom se prvi dohvaca iz grupe
Ali je problem ne mogu nikako da im postavim ja Zorder.position

CommandButton1.ZOrder=2 //nece puca
ili za gornju foreach petlju
shp.ZOrderPosition =2//nece isto
[ vampslayer @ 13.04.2011. 13:39 ] @
ZorderPosition je pak u pitanju,a postavlja se tako da ona Kontrola koju zelim prvo prikazati da idem na nju pa Order pa Send To Back.
Znaci koristim samo Send to Back ali u ubrnutom redosljedu od onog kako zelim prikazivati kontrole