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