PowerPoint - Roll-Over ефекат у презентацијама

Roll-Over ефекат представља динамично приказивање текст поруке (слике или нечег сличног) током трајања слајд презентације када корисник (презентатор) пређе показивачем миша изнад одређеног објекта. Овај ефекат се најчешће среће код web презентација, али га је уз помоћ мало довитљивости и VBA програмског кода могуће извести и унутар PowerPoint-а. Приказаћемо вам кроз илустративни пример како да добијете овакав ефекат.

Креирајте слајд чији ће изглед бити сличан шеми приказаној на слици. Бројеви приказани на шеми одговарају индексним вредностима објеката на слајду, а они ће бити употребљени у програмском коду. Унутар action подешавања одредите индексе свих објеката од један до четири, и придружите им наредни макро. Макро је дизајниран тако да ако се показивачем миша пређе изнад објеката, порука се приказује унутар објекта са индексом 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

Осигурајте да је код свих објеката подешена акција за догађај Mouse Over, па тако кликните десним тастером изнад објекта и изаберите опцију Action Settings.... Пређите на картицу Mouse Over, и изаберите опцију Run Macro, те у припадајуће текст поље унесите назив горњег макроа:

PrikaziPoruku