"garnote" a écrit dans le message de news:HTLtc.39$
Bonsoir,
Est-ce possible, par macro, d'obtenir la listes des fontes disponibles sur notre ordi ?
Merci
Serge
pat
Bonsoir,Trouvé sur le site de Frederic Sigonneauhttp://perso.wanadoo.fr/frederic.sigonneau/code/Impr/ListePolices1. txt Sub ListeDesPolices() 'L Longre, mpfe 'nécessite que le contrôle "liste des polices" (ID 1728) 'soit présent dans les barres d'outils du PC
Dim Arr, I As Integer
Application.ScreenUpdating = False Workbooks.Add With Application.CommandBars.FindControl(ID:28) ReDim Arr(1 To .ListCount, 1 To 1) For I = 1 To UBound(Arr) Arr(I, 1) = .List(I) Cells(I, 2).Font.Name = Arr(I, 1) Next I End With With Range("A1").Resize(I - 1) .Value = Arr .Offset(0, 1) = "Yann est le roi des robots !" .Font.Size = 12 End With Columns("A:B").AutoFit End Sub "garnote" a écrit dans le message de news:HTLtc.39$
Bonsoir,
Est-ce possible, par macro, d'obtenir la listes des fontes disponibles sur notre ordi ?
Merci
Serge
Bonsoir,Trouvé sur le site de Frederic
Sigonneauhttp://perso.wanadoo.fr/frederic.sigonneau/code/Impr/ListePolices1.
txt
Sub ListeDesPolices()
'L Longre, mpfe
'nécessite que le contrôle "liste des polices" (ID 1728)
'soit présent dans les barres d'outils du PC
Dim Arr, I As Integer
Application.ScreenUpdating = False
Workbooks.Add
With Application.CommandBars.FindControl(ID:28)
ReDim Arr(1 To .ListCount, 1 To 1)
For I = 1 To UBound(Arr)
Arr(I, 1) = .List(I)
Cells(I, 2).Font.Name = Arr(I, 1)
Next I
End With
With Range("A1").Resize(I - 1)
.Value = Arr
.Offset(0, 1) = "Yann est le roi des robots !"
.Font.Size = 12
End With
Columns("A:B").AutoFit
End Sub
"garnote" <rien@absent.net> a écrit dans le message de
news:HTLtc.39$ig5.5@edtnps89...
Bonsoir,
Est-ce possible, par macro, d'obtenir la listes des
fontes disponibles sur notre ordi ?
Bonsoir,Trouvé sur le site de Frederic Sigonneauhttp://perso.wanadoo.fr/frederic.sigonneau/code/Impr/ListePolices1. txt Sub ListeDesPolices() 'L Longre, mpfe 'nécessite que le contrôle "liste des polices" (ID 1728) 'soit présent dans les barres d'outils du PC
Dim Arr, I As Integer
Application.ScreenUpdating = False Workbooks.Add With Application.CommandBars.FindControl(ID:28) ReDim Arr(1 To .ListCount, 1 To 1) For I = 1 To UBound(Arr) Arr(I, 1) = .List(I) Cells(I, 2).Font.Name = Arr(I, 1) Next I End With With Range("A1").Resize(I - 1) .Value = Arr .Offset(0, 1) = "Yann est le roi des robots !" .Font.Size = 12 End With Columns("A:B").AutoFit End Sub "garnote" a écrit dans le message de news:HTLtc.39$
Bonsoir,
Est-ce possible, par macro, d'obtenir la listes des fontes disponibles sur notre ordi ?
Merci
Serge
Clément Marcotte
On est en train de le faire passer pour le "mauvais élève" ;-) (Je dis cela avant que ma propre réponse apparaisse à son tour)
"isabelle" a écrit dans le message de news:
salut Serge,
si si ici,
http://www.zealsoftstudio.com/fr/
isabelle
Bonsoir,
Est-ce possible, par macro, d'obtenir la listes des fontes disponibles sur notre ordi ?
Merci
Serge
On est en train de le faire passer pour le "mauvais élève" ;-)
(Je dis cela avant que ma propre réponse apparaisse à son tour)
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:40B78DD2.3B47C80F@videotron.ca...
salut Serge,
si si ici,
http://www.zealsoftstudio.com/fr/
isabelle
Bonsoir,
Est-ce possible, par macro, d'obtenir la listes des
fontes disponibles sur notre ordi ?
