PowerPoint – Roll-Over efekat u prezentacijama

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 i preko mobilne aplikacije za Android i iPhone.