0
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
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 34501
Url: https://administrator.de/contentid/34501
Ausgedruckt am: 22.11.2024 um 02:11 Uhr
