Problém je v tom, že keď na záložke Návrh zmeníte orientáciu snímky, tak to platí pre všetky. Preto je potrebné využiť Visual Basic for Applications (VBA) kód, ktorý môže pomôcť ale nie je to ideálne. Princíp je v tom, že využijete možnosti nastavenia akcie, ktorá pri ukázaní príp. kliknutí myšou spustí makro, ktoré otočí snímky na výšku. Pri prechádzaní na ďalšiu snímku sa využije druhé makro, ktoré snímky otočí späť na šírku. Jednoducho povedané: pri prechode na snímku, ktorá má byť na výšku makro snímky otočí a pri odchode z tejto snímky iné makro otočí snímky späť na šírku.
Obe makrá môžu mať takýto kód:
Public Sub na_vysku()
Application.ActivePresentation.PageSetup.SlideOrientation = _
msoOrientationVertical
ActivePresentation.SlideShowWindow.View.Next
End Sub
Public Sub na_sirku()
Application.ActivePresentation.PageSetup.SlideOrientation = _
msoOrientationHorizontal
ActivePresentation.SlideShowWindow.View.Next
End Sub
Táto časť kódu ActivePresentation.SlideShowWindow.View.Next nie je nutná ak využijete hypertextové prepojenie medzi snímkami. Teraz už len stačí napr. do nadpisu snímky (tej pred tou na výšku) vložiť Nastavenie akcie (hypertextové prepojenie) a nastaviť mu akciu pri kliknutí myšou, aby sa spustilo makro. Na otočenej snímke sa urobí to isté, len sa zadá pri tej istej akcii spustenie makra, ktoré to otočí späť. Prezentujúci ale nesmie na toto zabudnúť, pretože pri inom prechode medzi snímkami (klávesnica, výber cez pravé tlačidlo myši a pod.) sa mu makro nespustí a snímky sa neotočia. ;-)
Viem, že to nie je ideálny spôsob, ale ak to je v konkrétnej prezentácii potrebné veľa iných možností nie je. Berte to prosím ako inšpiráciu, že je možné urobiť aj niečo takéto pomocou VBA. Ja osobne by som toto do prezentácie nerobil a nechal by som všetky snímky na šírku, ale čitateľ to asi dosť potreboval, pretože chcel vkladať na otočenú snímku tabuľku z Excelu. ;-))
