Returns whether the font is bold or sets it.

Type Info:

 
Bold As Boolean
Example: 
Dim Dlg As FontDialog
Dim FontName As String
Dim Size As Long
Dim Bold As Boolean
Dim Italic As Boolean

Set Dlg = Application.Tools.RestypeEditors.FontDialog

Dlg.FontName = "Arial"
Dlg.Size = 12
Dlg.Bold = False
Dlg.Italic = False

If (Dlg.Show) Then
    FontName = Dlg.FontName
    Size = Dlg.Size
    Bold = Dlg.Bold
    Italic = Dlg.Italic
End If
See also:

Class FontDialog
Last Updated: 11/11/04