Pretrazivanje AktivnihKontrola po Grupi

Odgovori Nova tema

3 odgovora
1.546 pregleda

Pretrazivanje AktivnihKontrola po Grupi 09.04.2011. u 17:54 · pre 189 meseci #1

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

Re: Pretrazivanje AktivnihKontrola po Grupi 10.04.2011. u 19:26 · pre 189 meseci #2

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

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Re: Pretrazivanje AktivnihKontrola po Grupi 11.04.2011. u 15:12 · pre 189 meseci #3

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

Re: Pretrazivanje AktivnihKontrola po Grupi 13.04.2011. u 14:39 · pre 189 meseci #4

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

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme