BiH

Subject: Power point i VBA kôd

---

Kako u Power point putem VBA kôda napraviti da kartice na slajdu, na događaj On Click, menjaju stanje Bring to Front u Send to Back i obrnuto.

Prilozi:

---

Subject: Re: Power point i VBA kôd

---

Dim ss As ShapeRange
'ActiveWindow.Selection.SlideRange.Shapes("Freeform 20").Select
Set ss = ActiveWindow.Selection.ShapeRange
ss.ZOrder msoBringToFront

---

Subject: Re: Power point i VBA kôd

---

Javlja gređku pri kompajliranju na liniji Set ss...

PS. u prilogu je slika.

Ikona prilozene slike:

---

Subject: Re: Power point i VBA kôd

---

pise Selection.
Ukoliko nije selektovan onda ce javiti gresku a to je pri ulazu.
Poslije mozes staviti on error resume nex

---

Subject: Re: Power point i VBA kôd

---

Ma nije greška pri izvršenju jer ni ne dođe do toga, već neće da iskompajlira programski kôd. Buni se na
reč „Set”. Ako otkočim drugi red, onaj iznad njega, kompajliranje se zaustavi na reč „Freeform 20”. Izgleda kao da nešto nedostaje.
Na početku posta imaš zakačen fajl. Probaj u njemu.

---

Subject: Re: Power point i VBA kôd

---

evo ti na tvom primjeru.

Prilozi:

---

Subject: Re: Power point i VBA kôd

---

Hvala. Sad je VBA kôd moguće iskompajlirati ali kod mene ne radi korektno. Trebalo bi da u SlideShow režimu može da se premešta sa kartice na karticu.

U međuvremenu sam na jednom drugom forumu dobio rešenje koje kod mene radi.
Sub toFront(oshp As Shape)
oshp.ZOrder (msoBringToFront)
End Sub

Još jednom zahvaljujem na trudu.

Prilozi:

---