Sub ClearOldStructure()
 
    Dim presentation As PowerPoint.presentation
    Set presentation = Application.ActivePresentation
 
    Dim slide As slide
 
    With presentation
        For Each slide In .Slides
            On Error Resume Next
            With slide
                .Shapes("ignore").Delete
                .Comments.Item(1).Delete
                .Shapes("section").Delete
                .Comments.Item(1).Delete
            End With
 
            For X = 0 To slide.Shapes.Count
                On Error Resume Next
                slide.Shapes("PB_" & CStr(X)).Delete
            Next
        Next
    End With
End Sub
 
Sub ShowFaceIDs()
    Dim NewToolbar As CommandBar
    Dim NewButton As CommandBarButton
    Dim i As Integer, IDStart As Integer, IDStop As Integer
 
'   Delete existing FaceIds toolbar if it exists
    On Error Resume Next
    Application.CommandBars("FaceIds").Delete
    On Error GoTo 0
 
'   Add an empty toolbar
    Set NewToolbar = Application.CommandBars.Add _
        (Name:="FaceIds", temporary:=True)
    NewToolbar.Visible = True
 
'   Change the following values to see different FaceIDs
    IDStart = 1
    IDStop = 250
 
    For i = IDStart To IDStop
        'Set NewButton = NewToolbar.Add(Type:=msoControlButton, Id:=2950)
        Set NewButton = NewToolbar.Controls.Add(Type:=msoControlButton)
        NewButton.FaceId = i
        NewButton.Caption = "FaceID = " & i
    Next i
    NewToolbar.Width = 600
End Sub