Comment changer la police d'une sélection dans powerpoint 2013 avec VBA

Question

Je voudrais changer pour la sélection de texte dans powerpoint 2013 la police à gras et "Couirier New". J'ai essayé avec ce script VBA pour changer la police:

Sub chengeFont() 
    With ActiveDocument.Selection 
     With .Font 
      .Name = "Courier New" 
     End With 
    End With 
End Sub 

mais cela ne fonctionne pas. Aucune suggestion?

Answer 1

Cela va changer la police et le mettre en gras lorsque vous l'exécutez

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

Puisque vous l'exécutez à partir d'une sélection, le document doit toujours être celui qui est actif, autrement vous aurez besoin de changer la ActiveWindow