title image


Smiley Re: Menü in Englisch
Hallo Tysa,



eine Liste mit Übersetzung kenne ich nicht. Aber, warum benutzt du nicht die Id der Controls? Die sind auf alle Fälle eindeutig. Eine sortier- und filterbare Liste kannst du so anlegen:



Public Sub test1()    Dim lIndex As Long, lRow As Long    Dim mybar As CommandBar, myControl As CommandBarControl    lRow = 1    Application.ScreenUpdating = False    For lIndex = 1 To 100000        For Each mybar In Application.CommandBars            Set myControl = mybar.FindControl(ID:=lIndex, Recursive:=True)            If Not myControl Is Nothing Then                lRow = lRow + 1                Cells(lRow, 1) = myControl.ID                Cells(lRow, 2) = myControl.Index                Cells(lRow, 3) = Replace(myControl.Caption, "&", "")                Cells(lRow, 4) = myControl.Type                If myControl.Type = 1 Then Cells(lRow, 5) = myControl.FaceId                Cells(lRow, 6) = mybar.Name                Cells(lRow, 7) = mybar.NameLocal                Cells(lRow, 8) = mybar.Index            End If        Next    Next    Application.ScreenUpdating = TrueEnd Sub
Gruß
Nepumuk


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: