Gruppe
Menue
Problem
Wie kann ich in einem Arbeitsblatt alle Menü- und Symbolleisten mit ihrem System- und ihrem Namen in der lokalen Sprache auflisten lassen? In einer 3. Spalte soll angegeben werden, ob die CommandBar sichtbar oder nicht sichtbar ist.
StandardModule: basMain
Sub Menueleisten()
Dim oBar As CommandBar
Dim iRow As Integer
Cells(1, 1) = "Name"
Cells(1, 2) = "Lokaler Name"
Cells(1, 3) = "Sichtbar"
iRow = 1
For Each oBar In Application.CommandBars
iRow = iRow + 1
Cells(iRow, 1) = oBar.Name
Cells(iRow, 2) = oBar.NameLocal
Cells(iRow, 3) = oBar.Visible
Next oBar
Columns("A:C").AutoFit
End Sub