Изменить шрифт выделения в PowerPoint

Я пытаюсь создать очень маленький макрос для изменения формата (размера текста и шрифта) в Powerpoint.

Я пытался использовать этот код, взятый из аналогичного вопроса на StackOverflow . Код работает, только когда выделенный текст находится в графике умного искусства. Я получаю сообщение об ошибке, которое говоритThis Member can only be accessed for a single shape.

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

Есть идеи?

Спасибо.

vba fonts microsoft-powerpoint wizlog
источник

Вы получите эту ошибку, если выбрано более одной фигуры в смарт-карте. Если вы выбираете по одному, ваш код работает как положено. Вы пытаетесь изменить весь текст в части Smartart или в выбранном подмножестве форм?

Стив Риндсберг,

Это странно, потому что я буду выбирать текст из двух маркеров одновременно. Просто выбранное подмножество.

wizlog

То есть вы выбираете несколько строк текста внутри одной из фигур в смарт-арте, а не выбираете несколько фигур?

Стив Риндсберг

Именно это я и делаю.

wizlog

Я захожу в тупик здесь. ОМ, кажется, не поддерживает какой-либо способ доступа к чему-то большему, чем текст в первой форме.

Стив Риндсберг,