Foliennotizen Powerpoint

Worum geht es?

Ich möchte aus einer MS Access-Datenbank Foliennotizen lesen und schreiben können per VBA. Dies geht normalerweise auch, denn Powerpoint stellt die Foliennotizen als Objekteigenschaft zur Verfügung. Nur ist es unendlich umständlich und scheint nicht immer zu zu funktionieren.

Wie funktioniert es meistens?

Meistens lässt sich folgendermassen auf die Notizen einer Folie zugreifen:

praesi.Slides(nummer).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text

Wo liegt das Problem?

Manchmal ist es fieserweise nicht der Placeholders(2), sondern ein anderer.

Mein aktueller Workaround

If praesi.Slides(foliennummer).NotesPage.Shapes.Placeholders(2).PlaceholderFormat.Type = 2 Then
   placeholderNummer = 2
Else
   placeholderNummer = 1
   While praesi.Slides(foliennummer).NotesPage.Shapes.Placeholders(placeholderNummer).PlaceholderFormat.Type <> 2
       placeholderNummer = placeholderNummer + 1
   Wend
End If