Roll-Over efekat predstavlja dinamiฤno prikazivanje tekst poruke (slike ili neฤeg sliฤnog) tokom trajanja slajd prezentacije kada korisnik (prezentator) preฤe pokazivaฤem miลกa iznad odreฤenog objekta. Ovaj efekat se najฤeลกฤe sreฤe kod web prezentacija, ali ga je uz pomoฤ malo dovitljivosti i VBA programskog koda moguฤe izvesti i unutar PowerPoint-a. Prikazaฤemo vam kroz ilustrativni primer kako da dobijete ovakav efekat.
Kreirajte slajd ฤiji ฤe izgled biti sliฤan ลกemi prikazanoj na slici. Brojevi prikazani na ลกemi odgovaraju indeksnim vrednostima objekata na slajdu, a oni ฤe biti upotrebljeni u programskom kodu. Unutar action podeลกavanja odredite indekse svih objekata od jedan do ฤetiri, i pridruลพite im naredni makro. Makro je dizajniran tako da ako se pokazivaฤem miลกa preฤe iznad objekata, poruka se prikazuje unutar objekta sa indeksom 4:
Option Explicit
Sub PrikaziPoruku(objekat As Shape)
With SlideShowWindows(1).View.Slide _
.Shapes(4).TextFrame.TextRange
Select Case objekat.ZOrderPosition
Case 1
.Text = „“
Case 2
.Text = „Poruka kada mis predje iznad objekta 2“
Case 3
.Text = „Poruka kada mis predje iznad objekta 3“
Case 4
.Text = „Poruka kada mis predje iznad objekta 4“
End Select
DoEvents
End With
End Sub
Osigurajte da je kod svih objekata podeลกena akcija za dogaฤaj Mouse Over, pa tako kliknite desnim tasterom iznad objekta i izaberite opciju Action Settings…. Preฤite na karticu Mouse Over, i izaberite opciju Run Macro, te u pripadajuฤe tekst polje unesite naziv gornjeg makroa:
PrikaziPoruku
Pratite Krstaricu na www.krstarica.com