' Now add a button to the new toolbar
    Set oButton = oToolbar.Controls.Add(Type:=msoControlButton)
 
    ' And set some of the button's properties
    With oButton
         .DescriptionText = "Remove Section"
          'Tooltip text when mouse if placed over button
         .Caption = "RemoveSection"
         'Text if Text in Icon is chosen
         .OnAction = "RemoveSection"
          'Runs the Sub Button1() code when clicked
         .Style = msoButtonIcon
          ' Button displays as icon, not text or both
         .FaceId = 138
          '52 is my favorite pig;
          ' chooses icon #52 from the available Office icons
    End With
 
 
 
' Now add a button to the new toolbar
    Set oButton = oToolbar.Controls.Add(Type:=msoControlButton)
 
    ' And set some of the button's properties
    With oButton
         .DescriptionText = "Add Ignore Slide"
          'Tooltip text when mouse if placed over button
         .Caption = "AddIgnoreSlide"
         'Text if Text in Icon is chosen
         .OnAction = "AddIgnoreSlide"
          'Runs the Sub Button1() code when clicked
         .Style = msoButtonIcon
          ' Button displays as icon, not text or both
         .FaceId = 214
          '52 is my favorite pig;
          ' chooses icon #52 from the available Office icons
    End With
 
 
 
    ' Now add a button to the new toolbar
    Set oButton = oToolbar.Controls.Add(Type:=msoControlButton)
 
    ' And set some of the button's properties
    With oButton
         .DescriptionText = "Remove Ignore Slide"
          'Tooltip text when mouse if placed over button
         .Caption = "RemoveIgnoreSlide"
         'Text if Text in Icon is chosen
         .OnAction = "RemoveIgnoreSlide"
          'Runs the Sub Button1() code when clicked
         .Style = msoButtonIcon
          ' Button displays as icon, not text or both
         .FaceId = 213
          '52 is my favorite pig;
          ' chooses icon #52 from the available Office icons
    End With
 
 
    ' Now add a button to the new toolbar
    Set oButton = oToolbar.Controls.Add(Type:=msoControlButton)
     ' And set some of the button's properties
    With oButton
         .DescriptionText = "Clear Structure"
          'Tooltip text when mouse if placed over button
         .Caption = "Delete old structure"
         'Text if Text in Icon is chosen
         .OnAction = "ClearOldStructure"
          'Runs the Sub Button1() code when clicked
         .Style = msoButtonIcon
          ' Button displays as icon, not text or both
         .FaceId = 215
          '52 is my favorite pig;
          ' chooses icon #52 from the available Office icons
    End With
 
 
        ' Now add a button to the new toolbar
    Set oButton = oToolbar.Controls.Add(Type:=msoControlButton)
     ' And set some of the button's properties
    With oButton
         .DescriptionText = "Show Settings Dialog"
          'Tooltip text when mouse if placed over button
         .Caption = "Show Settings"
         'Text if Text in Icon is chosen
         .OnAction = "showSettingDialog"
          'Runs the Sub Button1() code when clicked
         .Style = msoButtonIcon
          ' Button displays as icon, not text or both
         .FaceId = 44
          '52 is my favorite pig;
          ' chooses icon #52 from the available Office icons
    End With
 
 
        ' Now add a button to the new toolbar
    Set oButton = oToolbar.Controls.Add(Type:=msoControlButton)
     ' And set some of the button's properties
    With oButton
         .DescriptionText = "Show Info Dialog"
          'Tooltip text when mouse if placed over button
         .Caption = "Show Info"
         'Text if Text in Icon is chosen
         .OnAction = "showInfoDialog"
          'Runs the Sub Button1() code when clicked
         .Style = msoButtonIcon
          ' Button displays as icon, not text or both
         .FaceId = 124
          '52 is my favorite pig;
          ' chooses icon #52 from the available Office icons
    End With
 
    ' Repeat the above for as many more buttons as you need to add
    ' Be sure to change the .OnAction property at least for each new button
 
    ' You can set the toolbar position and visibility here if you like
    ' By default, it'll be visible when created
    oToolbar.top = 150
    oToolbar.left = 150
    oToolbar.Visible = True
 
NormalExit:
    Exit Sub   ' so it doesn't go on to run the errorhandler code
 
ErrorHandler:
     'Just in case there is an error
     MsgBox Err.Number & vbCrLf & Err.Description
     Resume NormalExit:
End Sub