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
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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 34501
Url: https://administrator.de/tutorial/waehrend-praesentation-zwischen-hoch-und-querformat-wechseln-34501.html
Ausgedruckt am: 22.12.2024 um 17:12 Uhr