Notizenseiten einheitlich formatieren

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
Next
End Sub

Mehr Tipps: Word-Dokument seitenweise in Powerpoint-Notizenseite speichern

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt