Font Picker

  • Thread starter Thread starter avi
  • Start date Start date
A

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
 
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
 
Back
Top