在 PowerPoint 中更改选择的字体

Question

我正在尝试创建一个非常小的宏来更改 Powerpoint 中的格式（文本大小和字体）。

我曾尝试使用取自StackOverflow 上的类似问题。代码有效，但当所选文本位于智能艺术图形中时无效。我收到一条错误消息，提示This Member can only be accessed for a single shape.

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

有任何想法吗？

谢谢。