Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Löschen überflüssiger Symbolleisten

Gruppe

Bar

Problem

Wie kann ich in XL8 überflüssige, benutzerdefinierte Symbolleisten löschen? Die Symbolleisten sollen abgefragt und angezeigt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub DeleteCmdBar()
   Dim oBar As CommandBar
   For Each oBar In Application.CommandBars
      If oBar.Visible And oBar.BuiltIn = False Then
         If MsgBox( _
            prompt:=oBar.Name & " löschen?", _
            Buttons:=vbYesNo + vbQuestion) = vbYes Then
            If MsgBox( _
               prompt:="Tatsächlich?", _
               Buttons:=vbYesNo + vbQuestion) = vbYes Then
               oBar.Delete
            End If
         End If
      End If
   Next oBar
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Menue und Bar