Font Object, Bold, Italic, Size, StrikeThrough, Underline, Weight Properties Example

 Font Object, Bold, Italic, Size, StrikeThrough, Underline, Weight Properties Example
This page is specific to the Visual Basic for Applications (VBA) Language Reference for Office 2010.

The following example demonstrates a Font object and the Bold, Italic, Size, StrikeThrough, Underline, and Weight properties related to fonts. You can manipulate font properties of an object directly or by using an alias, as this example also shows.

To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains:

  • A Label named Label1.

  • Four ToggleButton controls named ToggleButton1 through ToggleButton4.

  • A second Label and a TextBox named Label2 and TextBox1.

 
Dim MyFont As StdFont



Private Sub ToggleButton1_Click()

    If ToggleButton1.Value = True Then

        MyFont.Bold = True            

          'Using MyFont alias to control font

        ToggleButton1.Caption = "Bold On"

        MyFont.Size = 22              

          'Increase the font size

    Else

        MyFont.Bold = False

        ToggleButton1.Caption = "Bold Off"

        MyFont.Size = 8               

          'Return font size to initial size

    End If

   

    TextBox1.Text = Str(MyFont.Weight)  

     'Bold and Weight are related

End Sub



Private Sub ToggleButton2_Click()

    If ToggleButton2.Value = True Then

        Label1.Font.Italic = True            

          'Using Label1.Font directly

        ToggleButton2.Caption = "Italic On"

    Else

        Label1.Font.Italic = False

        ToggleButton2.Caption = "Italic Off"

    End If

End Sub



Private Sub ToggleButton3_Click()

    If ToggleButton3.Value = True Then

   Label1.Font.Strikethrough = True

   'Using Label1.Font directly

        ToggleButton3.Caption = "StrikeThrough On"

    Else

        Label1.Font.Strikethrough = False

        ToggleButton3.Caption = "StrikeThrough Off"

    End If

End Sub



Private Sub ToggleButton4_Click()

    If ToggleButton4.Value = True Then

        MyFont.Underline = True            

          'Using MyFont alias for Label1.Font

        ToggleButton4.Caption = "Underline On"

    Else

        Label1.Font.Underline = False

        ToggleButton4.Caption = "Underline Off"

    End If

End Sub



Private Sub UserForm_Initialize()

    Set MyFont = Label1.Font

    

    ToggleButton1.Value = True

    ToggleButton1.Caption = "Bold On"

    

    Label1.AutoSize = True        'Set size of Label1

    Label1.AutoSize = False

        

    ToggleButton2.Value = False

    ToggleButton2.Caption = "Italic Off"

    

    ToggleButton3.Value = False

    ToggleButton3.Caption = "StrikeThrough Off"

        

    ToggleButton4.Value = False

    ToggleButton4.Caption = "Underline Off"

    

    Label2.Caption = "Font Weight"

    TextBox1.Text = Str(Label1.Font.Weight)

    TextBox1.Enabled = False

End Sub