Alterar fonte de seleção no PowerPoint

Question

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

Eu tentei usar este código obtido de um 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 diz This Member can only be accessed for a single shape.

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

Alguma idéia?

Obrigado.