Obtenir la liste des polices installées sur le poste
2 réponses
Pierre Archambault
Bonjour à tous,
Je tente de trouver comment obtenir la liste des polices de caractères
instalées sur le poste de travail afin d'alimenter un ComboBox dans un
UserForm.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LSteph
Bonsoir,
Private Sub UserForm_Initialize() Dim i As Long With Application.CommandBars.FindControl(ID:28) For i = 1 To .ListCount ComboBox1.AddItem .List(i) Next i End With End Sub
'Cordialement
'-- 'lSteph
'(idée originale de C.Pearson) 'voir 'http://dj.joss.free.fr/listpolice.htm
Bonjour à tous,
Je tente de trouver comment obtenir la liste des polices de caractères instalées sur le poste de travail afin d'alimenter un ComboBox dans un UserForm.
Merci de vos lumières
Bonsoir,
Private Sub UserForm_Initialize()
Dim i As Long
With Application.CommandBars.FindControl(ID:28)
For i = 1 To .ListCount
ComboBox1.AddItem .List(i)
Next i
End With
End Sub
'Cordialement
'--
'lSteph
'(idée originale de C.Pearson)
'voir
'http://dj.joss.free.fr/listpolice.htm
Bonjour à tous,
Je tente de trouver comment obtenir la liste des polices de caractères
instalées sur le poste de travail afin d'alimenter un ComboBox dans un
UserForm.
Private Sub UserForm_Initialize() Dim i As Long With Application.CommandBars.FindControl(ID:28) For i = 1 To .ListCount ComboBox1.AddItem .List(i) Next i End With End Sub
'Cordialement
'-- 'lSteph
'(idée originale de C.Pearson) 'voir 'http://dj.joss.free.fr/listpolice.htm
Bonjour à tous,
Je tente de trouver comment obtenir la liste des polices de caractères instalées sur le poste de travail afin d'alimenter un ComboBox dans un UserForm.
Merci de vos lumières
MichDenis
Pour afficher la liste des polices si tu avais un combobox dans la feuil1
'-------------------------------- Sub ListeDesPolices() Dim Tblo(), A As Integer Dim Ctrl As CommandBarComboBox Set Ctrl = _ Application.CommandBars.FindControl(ID:28)
With Ctrl For A = 1 To .ListCount ReDim Preserve Tblo(A) Tblo(A) = .List(A) Next End With
With Feuil1.ComboBox1 .Clear .List = Application.Transpose(Tblo) End With End Sub '--------------------------------
"Pierre Archambault" a écrit dans le message de news: 5Ohaj.16141$ Bonjour à tous,
Je tente de trouver comment obtenir la liste des polices de caractères instalées sur le poste de travail afin d'alimenter un ComboBox dans un UserForm.
Merci de vos lumières
-- Pierre
Pour afficher la liste des polices si tu avais un combobox
dans la feuil1
'--------------------------------
Sub ListeDesPolices()
Dim Tblo(), A As Integer
Dim Ctrl As CommandBarComboBox
Set Ctrl = _
Application.CommandBars.FindControl(ID:28)
With Ctrl
For A = 1 To .ListCount
ReDim Preserve Tblo(A)
Tblo(A) = .List(A)
Next
End With
With Feuil1.ComboBox1
.Clear
.List = Application.Transpose(Tblo)
End With
End Sub
'--------------------------------
"Pierre Archambault" <pierre.archambault@videotron.ca> a écrit dans le message de news:
5Ohaj.16141$vz3.473025@wagner.videotron.net...
Bonjour à tous,
Je tente de trouver comment obtenir la liste des polices de caractères
instalées sur le poste de travail afin d'alimenter un ComboBox dans un
UserForm.
Pour afficher la liste des polices si tu avais un combobox dans la feuil1
'-------------------------------- Sub ListeDesPolices() Dim Tblo(), A As Integer Dim Ctrl As CommandBarComboBox Set Ctrl = _ Application.CommandBars.FindControl(ID:28)
With Ctrl For A = 1 To .ListCount ReDim Preserve Tblo(A) Tblo(A) = .List(A) Next End With
With Feuil1.ComboBox1 .Clear .List = Application.Transpose(Tblo) End With End Sub '--------------------------------
"Pierre Archambault" a écrit dans le message de news: 5Ohaj.16141$ Bonjour à tous,
Je tente de trouver comment obtenir la liste des polices de caractères instalées sur le poste de travail afin d'alimenter un ComboBox dans un UserForm.