菜单中英文名称

wqfzqgk

Sub 菜单中英文名称()
    Dim Cbar As CommandBar
    Dim NewWS As Worksheet
    Dim RNum As Integer
    RNum = 1
    Set NewWS = Worksheets.Add
    On Error Resume Next
    ActiveSheet.Name = "菜单中英文名称"
    On Error GoTo 0
    For Each Cbar In Application.CommandBars
        NewWS.Cells(RNum, "A").Value = Cbar.Name
        NewWS.Cells(RNum, "B").Value = Cbar.NameLocal
        RNum = RNum + 1
    Next Cbar
    NewWS.Columns.AutoFit
End Sub

b4069588

這帖子很實用   謝謝   收ㄌ