VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Löschen überflüssiger Symbolleisten

Gruppe

Menue

Bereich

Bar

Thema

Löschen überflüssiger Symbolleisten

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