Notizenseiten einheitlich formatieren

ppViewNotesPage

Alle Notizenseiten einer Präsentation auf einheitliches Format anpassen

Sub NotizenSeiten_anpassen()

Dim D As CommandBarControl

Dim I As Integer

Dim Anzahl As Integer

Const Lay = 700 'die ID des Menüpunktes

ActiveWindow.ViewType = ppViewNotesPage

Set D = CommandBars.FindControl(Id:=Lay)

Anzahl = ActivePresentation.Slides.Count

For I = 1 To Anzahl

ActiveWindow.View.GotoSlide Index:=I

D.Execute

SendKeys "%M"

SendKeys "~" 'Enter

DoEvents

End Sub