Vous pouvez voir en un coup d'œil quelles polices sont disponibles dans Excel
Vous pouvez facilement sélectionner la police d'une cellule. Mais la liste des polices installées est longue. Si vous cherchez la bonne police pour un affichage ou si vous voulez expérimenter un peu les polices, une macro vous aidera.
Utilisez la macro suivante si vous souhaitez répertorier toutes les polices disponibles dans la colonne A d'un nouveau classeur :
Sous-polices Entrée ()
Dim liste de polices As CommandBarControl, compteur As Integer
Application.ScreenUpdating = Faux
Classeurs.Ajouter
Définir la liste des polices = Application.CommandBars.FindControl (ID : = 1728)
Pour le compteur = 1 Pour la liste des polices.ListCount
Avec cellules (compteur, 1)
.Valeur = Liste des polices.Liste (compteur)
.Font.Name = Font list.List (compteur)
Terminer par
Compteur suivant
Colonnes (1) .AutoFit
Application.ScreenUpdating = True
Fin du sous-marin
Excel entre le nom de chaque police dans les cellules et formate immédiatement la cellule dans la police appropriée. L'illustration suivante montre à quoi cela peut ressembler :