Font Picker

[avi]

Hello,

Is there some ready font picker that i could use in a userform, that
returns the font name (size, bold...)?

I've already found a color picker that I use

Thanks
Avi

 

[Guest]

I use this one:
Private Sub CommandButton1_Click()
'Use Reference : Microsoft Common Dialog Control 6.0 (SP6)
'
Dim Lbl As MSForms.Label
Set Lbl = Label1
Lbl.AutoSize = True
With CommonDialog1
.Flags = cdlCFScreenFonts
.ShowFont
Lbl.Font.Name = .FontName
Lbl.Font.Size = .FontSize
Lbl.Font.Bold = .FontBold
Lbl.Font.Italic = .FontItalic
End With
End Sub

 

[avi]

Many thanks Halim

Works very fine

Avi