Ändern Sie die Schriftart der Auswahl in PowerPoint

Ich versuche, ein sehr kleines Makro zu erstellen, um das Format (Textgröße und Schriftart) in Powerpoint zu ändern.

Ich habe versucht, diesen Code aus einer ähnlichen Frage auf StackOverflow zu verwenden . Der Code funktioniert nur dann nicht, wenn sich der ausgewählte Text in einer Smart-Art-Grafik befindet. Ich erhalte eine Fehlermeldung, die besagtThis Member can only be accessed for a single shape.

With ActiveWindow.Selection.TextRange.Font
    .Name = "Courier New"
    .Bold = msoTrue
End With

Irgendwelche Ideen?

Danke.

vba fonts microsoft-powerpoint

— wizlog
quelle

Sie erhalten diesen Fehler, wenn mehr als eine Form im Smartart ausgewählt ist. Wenn Sie jeweils eine auswählen, funktioniert der Code wie erwartet. Versuchen Sie, den gesamten Text eines Smartarts oder einer ausgewählten Teilmenge der Formen zu ändern?

— Steve Rindsberg

Das ist seltsam, weil ich den Text aus zwei Aufzählungszeichen gleichzeitig auswählen werde. Nur eine ausgewählte Teilmenge.

— wizlog

Sie wählen also mehrere Textzeilen aus einer der Formen im Smartart aus, anstatt mehrere der Formen auszuwählen?

— Steve Rindsberg

Genau, genau das mache ich.

— Wizlog

Ich treffe hier Sackgassen. Das OM scheint keine Möglichkeit zu unterstützen, auf mehr als den Text in der ersten Form zuzugreifen.

— Steve Rindsberg