|
Hallo zusammen,
in PowerPoint gibt es zu jeder Folie ein Notizfeld, was im normalen Arbeitsmodus unterhalb der Folie eingeblendet werden kann.
Mittels VBA kann man das Notizfeld (NotesPage) wie folgt ansprechen, um z.B. von Slide 1 den Text aus dem Notizfeld auszulesen:
debug.print PowerPoint.ActivePresentation.Slides.item(1).sld.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.text
Wenn der Cursor in dem Notizfeld gesetzt ist, erhält man als Selection-Typ den Wert 3 zurück, der auch ausgegeben wird, wenn man ein normales Shape auf der Folie zum Editieren ausgewählt hat
ActiveWindow.Selection.Type
Ich habe nun festgestellt, wenn der Cursor in dem Notizfeld gesetzt ist, kann ich via VBA nicht mehr eine (andere) Folie selektieren mit
.select
auf einem Slide Objekt.
Hintergrund ist, dass ich mir Funktionen geschrieben habe, um zwischen Folien schnell hin und her zu springen z.B. zur nächsten oder vorherigen Folie, die ebenfalls Notizen im Notizfeld enthält.
Meine Frage lautet nun, wie kann ich die Selektion des Notizfeld aufheben, so dass .select wieder funktioniert. Der folgende Aufruf hilft leider nicht:
ActiveWindow.Selection.Unselect
Hat jemand eine Idee?
Viele Grüße
Moe
|