Während Präsentation zwischen Hoch- und Querformat wechseln

auf Folie zwei commandbuttons anlegen (über Steuerelement-toolbox)
einen fuer hoch und einen für querformat

für Hochformat folgendes vb-script:
With ActivePresentation.PageSetup
.SlideSize = ppSlideSizeOnScreen
.FirstSlideNumber = 1
.SlideOrientation = msoOrientationVertical
.NotesOrientation = msoOrientationVertical
End With

für Querformat folgendes vb-script:
With ActivePresentation.PageSetup
.SlideSize = ppSlideSizeOnScreen
.FirstSlideNumber = 1
.SlideOrientation = msoOrientationHorizontal
.NotesOrientation = msoOrientationVertical
End With