OFFICE 自带功能application.commandbars()中参数的意义

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

application.commandbars("Standard").visible=false<br>Sub ShowShortcuts()    Dim Ctrl As CommandBarControl    Dim i As Integer      Application.ScreenUpdating = False    On Error Resume Next    i = 1    For Each Ctrl In CommandBars.FindControls       If Ctrl <> "" Then          Cells(i, 1) = Ctrl.Parent.Name          Cells(i, 2) = Ctrl.accKeyboardShortcut          Cells(i, 3) = Ctrl.accName          Cells(i, 4) = Ctrl.accDescription          Cells(i, 5) = Ctrl.ID          Cells(i, 6) = Ctrl.Enabled          Cells(i, 7) = Ctrl.Height          Cells(i, 8) = Ctrl.Left          Cells(i, 9) = Ctrl.Top          i = i + 1       End If    Next    Columns("A:E").AutoFit    Application.ScreenUpdating = True End Sub