Font Picker
 

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

Font Picker
 

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
--
Regards,

Halim



"avi" wrote:

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

Font Picker
 

Many thanks Halim

Works very fine

Avi