Menüleistenoptionen mit Unterstrich listen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Public Sub machs() Dim objControl As CommandBarControl Dim btn As CommandBarControl Dim A As Integer, B As Integer, C On Error Resume Next ActiveSheet.UsedRange.Clear For Each objControl In Application.CommandBars("Worksheet Menu Bar").Controls A = A + 1 For Each btn In objControl.Controls B = B + 1 With Cells(B, A) .Value = btn.Caption C = InStr(1, .Text, "&") .Replace "&", "" If C > 0 Then .Characters(C, 1).Font.Bold = True End With Next B = 0 Next End Sub

Option Explicit Public Sub machs() Dim objControl As CommandBarControl, btn As CommandBarControl Dim Zei As Long, Spa As Long, Pos As Integer On Error Resume Next Application.ScreenUpdating = False With Worksheets("Tabelle1") .UsedRange.Clear Zei = 1 For Each objControl In Application.CommandBars("Worksheet Menu Bar").Controls Spa = Spa + 1 .Cells(Zei, Spa).Value = Replace(objControl.Caption, "&", "") .Cells(Zei, Spa).Font.Bold = True For Each btn In objControl.Controls If btn.Visible Then Zei = Zei + 1 With .Cells(Zei, Spa) .Value = btn.Caption Pos = InStr(1, .Text, "&") .Replace "&", "" If Pos > 0 Then .Characters(Pos, 1).Font.Bold = True If btn.Enabled = False Then .Font.Strikethrough = True End With End If Next Zei = 1 Next .Columns.AutoFit End With Application.ScreenUpdating = True End Sub

Hallo Dieter,
hatte heute einen harten Tag und keinen Bock mehr noch groß zu denken.
Obwohl, soviel ist das gar nicht, bin da sehr sicher ich kriege das hin, aber erst ab Morgen.
Und wenn ich das hinkrige ist es sooooo schwierig nicht :-) :-(
Probiere es mal selbst. Stell dir da die sichtbaren Menuepunkte oben im Menue,
also datei, bearbeiten usw. vor als Oberordner im Verzeichnisbaum den du vom Win Explorer kennst.
Wie im Code sichtbar kannst du sie mit .Name "ansprechen".
Alle Unterordner/Untermenues je Menuepunkt mit .Caption.
Das siehst du auch im Code.
Prinzipiell mußt du nur eine dritte For-Schleife in die beiden vorhandenen einbauen.
Die erste For-Schleife geht alle Oberordner durch.
Die zweite deren Unterordner.
Die dritte müßte dann alle Unterordner der Unterordner durchgehen.
Probier einfach mal rum.
Irgendwie hab ich Frühjahrsmüdigkeit *gähn*
Gruß
Reinhard

Public Sub machsMitDuchgestrichen() Dim objControl As CommandBarControl, btn As CommandBarControl Dim Zei As Long, Spa As Long, Pos As Integer On Error Resume Next Application.ScreenUpdating = False With Worksheets("Tabelle1") .UsedRange.Clear Zei = 1 For Each objControl In Application.CommandBars("Worksheet Menu Bar").Controls Spa = Spa + 1 .Cells(Zei, Spa).Value = Replace(objControl.Caption, "&", "") .Cells(Zei, Spa).Font.Bold = True For Each btn In objControl.Controls If btn.Visible Then Zei = Zei + 1 With .Cells(Zei, Spa) .Value = btn.Caption Pos = InStr(1, .Text, "&") .Replace "&", "" If Pos > 0 Then .Characters(Pos, 1).Font.Bold = True If btn.Enabled = False Then .Font.Strikethrough = True End With End If Next Zei = 1 Next .Columns.AutoFit End With Application.ScreenUpdating = True End Sub

Hallo Dieter,
ich hatte weiter dran probiert aber da ist noch der Wurm drin. Irgendwie ist alles auf dem Blatt *glaub*
aber an falschen Stellen
teste bitte selbst den nachfolgenden Code, dann siehste es.
Gruß
Reinhard

Public Sub machs()
Dim objControl As CommandBarControl, btn
Dim Zei As Long, Spa As Long, Pos As Integer, Z
On Error Resume Next
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
.UsedRange.Clear
Zei = 1
Spa = -1
For Each objControl In Application.CommandBars("Worksheet Menu Bar").Controls
Spa = Spa + 2
.Cells(Zei, Spa).Value = Replace(objControl.Caption, "&", "")
.Cells(Zei, Spa).Font.Bold = True
For Each btn In objControl.Controls
If btn.Visible Then
Zei = Zei + 1
With .Cells(Zei, Spa)
.Value = btn.Caption
For Z = 1 To btn.Controls.Count
.Offset(Z - 1, Spa).Value = btn.Caption
.Offset(Z - 1, Spa + 1).Value = btn.Controls(Z).Caption
Next Z
Zei = Zei + Z
Pos = InStr(1, .Text, "&")
.Replace "&", ""
If Pos > 0 Then .Characters(Pos, 1).Font.Bold = True
If btn.Enabled = False Then .Font.Strikethrough = True
End With
End If
Next
Zei = 1
Next
.Columns.AutoFit
End With
Application.ScreenUpdating = True
End Sub

Sub tt()
MsgBox CommandBars("Worksheet Menu Bar").Controls("Forma&t").Controls("Spa&lte").Controls("Einb&lenden").Enabled
MsgBox CommandBars("Worksheet Menu Bar").Controls("Forma&t").Controls("Spa&lte").Controls.Count
End Sub

Next Z Zei = Zei + Z Pos = InStr(1, .Text, "&") .Replace "&", "" If Pos > 0 Then .Characters(Pos, 1).Font.Bold = True If btn.Enabled = False Then .Font.Strikethrough = True End With End If Next Zei = 1

Beliebteste Forumthreads (12 Monate)

Menüleistenoptionen mit Unterstrich listen

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

32 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Menüleistenoptionen mit Unterstrich listen

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

32 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread