Passer au contenu

Comment afficher la liste des polices du système ?

Solution : en écrivant une macro en VBA.

Il n’existe pas d’outils simples pour imprimer la liste des polices de caractères installées dans la système. Une solution consiste à écrire une macrocommande en VBA (Visual Basic Edition Applications, le langage de programmation intégré à Office) qui insère le nom de chaque fonte dans une cellule Excel, puis d’imprimer la liste ainsi créée. Ouvrez un classeur vierge et appuyez sur les touches + afin de démarrer Visual Basic Editor. Ajoutez un nouveau module en choisissant la commande Module du menu Insertion. Dans le fenêtre qui s’affiche, saisissez le listing ci-après. Enregistrez la macro et fermez Visual basic Editor en cliquant sur les boutons adéquats de la barre d’outils.
our exécuter la macro, déroulez le menu Outils, puis sélectionnez les commandes Macro et Macros. Dans la liste qui apparaît, sélectionnez MontrerPolicesInstallées et activez [exécuter]. La liste des polices de caractères s’affiche alors dans la colonne A. Appuyez sur licône Aperçu avant impression afin de visualiser le résultat puis cliquez sur le bouton [imprimer].Listing :
ub MontrerPolicesInstallées()
Set ListePolices = Application.CommandBars(“formatting”).FindControl(Id:=1728)
If ListePolices Is Nothing Then
Set BarreOutilsTempo = Application.CommandBars.Add
Set ListePolices = BarreOutilsTempo.Controls.Add(Id:=1728)
End If
Range(“A:A”).ClearContents
For i = 0 To ListePolices.ListCount – 1
Cells(i + 1, 1) = ListePolices.List(i + 1)
Next i
On Error Resume Next
BarreOutilsTempo.Delete
End Sub

🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.


Filigrane Press