Alterar fonte da seleção no PowerPoint

Estou tentando criar uma macro muito pequena para alterar o formato (tamanho e fonte do texto) no Powerpoint.

Eu tentei usar esse código retirado de uma pergunta semelhante no StackOverflow . O código funciona, mas não quando o texto selecionado está em um gráfico de arte inteligente. Recebo uma mensagem de erro que dizThis Member can only be accessed for a single shape.

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

Alguma ideia?

Obrigado.

vba fonts microsoft-powerpoint

— wizlog
fonte

Você receberá esse erro se mais de uma forma dentro do smartart estiver selecionada. Se você selecionar um de cada vez, seu código funcionará conforme o esperado. Você está tentando alterar todo o texto em uma peça de smartart ou em um subconjunto selecionado das formas?

— Steve Rindsberg 13/03/19

Isso é estranho, porque selecionarei o texto de duas marcações ao mesmo tempo. Apenas um subconjunto selecionado.

— Wizlog 13/0318

Então, você está selecionando várias linhas de texto dentro de uma das formas no smartart, em vez de selecionar várias formas?

— Steve Rindsberg

Exatamente, é exatamente isso que estou fazendo.

— Wizlog 15/0318

Estou atingindo becos sem saída aqui. O OM parece não suportar nenhuma maneira de acessar mais do que o texto na primeira forma.

— Steve Rindsberg