Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 VBA, liste des polices et pour chaque police, liste des styles

dionys0s

XLDnaute Impliqué
Bonjour le forum,

Je souhaite rédiger une procédure qui parcourt toutes les polices installées, et pour chacune de ces polices, qui parcourt tous les styles disponibles. Et ces styles ne sont pas forcément "Normal", "Italique", "Gras" et "Gras italique".

La police "Times New Roman" a les styles "Normal", "Italique", "Gras" et "Gras italique"



Mais la police "Lucida Sans Typewriter" a les styles "Normal", "Oblique", "Gras" et "Gras Oblique"



La police "Segoe UI Black" n'a que les styles "Normal" et "Italique"



La police "Perpetua Titling MT" a les styles "Maigre", "Maigre italique", "Gras" et "Gras italique"



Et on peut avoir des trucs carrément exotiques, avec les variations de la police "Bahnschrift" :







Je sais déjà comment parcourir la liste des polices. Soit avec :
VB:
With VBA.CreateObject("Word.Application")
  For Each vntFont In .FontNames
    ' pour chaque style de la police vntFont
  Next vntFont
  Call .Quit
End With

Soit avec :
Code:
Application.CommandBars("Formatting").FindControl(ID:=1728)

Maintenant j'aimerais avoir accès aux styles spécifique de chaque police. Et si possible, le Name (a priori en anglais), et non le LocalName.
Je ne veux pas forcément qu'on me fasse tout le boulot, juste être mis sur la voie, si cette voie existe.

D'avance, merci pour votre aide
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…