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

[dionys0s]

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 :

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 :

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

 

[Compte Supprimé 979]

Salut Dionys0s

Peut-être un début de solution ICI

A+

 

[dionys0s]

Bonjour BrunoM45,

merci, mais c'est précisément la partie que je maîtrise. Ce que je cherche maintenant, c'est obtenir la liste des styles spécifiques à chaque police.