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"

1636632535659.png


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

1636632887565.png


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

1636633009027.png


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

1636633165141.png


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

1636633327140.png


1636633342983.png


1636633364402.png


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 :)
 

Statistiques des forums

Discussions
314 450
Messages
2 109 724
Membres
110 552
dernier inscrit
jasson