Vlastnost BuiltIn = True je standardni doplnek MS Office, BuiltIn = False oznacuje uzivatelsky definovany objekt napr. CommandBar

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub Custom_CommandBars_Delete()
'----------------------------------------------------------------------
'
'----------------------------------------------------------------------
Const lc_Title              As String = "myMacro"
'Dim lo_CommBar             As CommandBar <-- vyzaduje knihovnu
Dim lo_CommBar              As Variant, _
    lv_CustomCommandBars    As String, _
    lv_CommBar_Int          As Integer
 
    For Each lo_CommBar In CommandBars
            
        If lo_CommBar.BuiltIn = False Then      ' <-- Custom command bar !
        
            lv_CustomCommandBars = lv_CustomCommandBars & vbCrLf & lo_CommBar.Name
            lv_CommBar_Int = lv_CommBar_Int + 1
            Debug.Print lo_CommBar.Name, lo_CommBar.NameLocal
    
        End If
    Next
    
    If lv_CommBar_Int = 0 Then
        MsgBox "Nebyly nalezeny zadne custom commandbars", vbInformation + vbOKOnly, lc_Title
    
    ElseIf MsgBox("Vymazat all custom commandbars?" & vbCrLf & _
                  lv_CustomCommandBars, vbQuestion + vbYesNo, lc_Title) = vbYes Then
        For Each lo_CommBar In CommandBars
            If lo_CommBar.BuiltIn = False Then ' <-- Custom command bar !
                lo_CommBar.Delete
            End If
        Next
    End If
    
End Sub