????? ????? ??????? ?????? ???? ????? ???? CommandBar

?????? ????????? ?????? ?????????
???? ???????: 162814 - ??? ???????? ???? ????? ????? ??? ???????.
????? ???? | ?? ????

?? ??? ??????

??????

?????? ??????? ???? ?????? CommandBar ??? ???? ??? ???? ??????? ?????? ?? ???? ????? ?????? ? ??????? ???????, ???? ??????? ?? ???? ???????. ????? ?????? ?????? ??? ?????? ??? ???? ???? ??? ???? ?????. ????? Visual Basic for Applications ??????? ??????? ?? ??? ?????? ???? ?????? Commandbar ????????.

??????? ????

?????? ??? ??????? ??????? ???? ??? ??? ??????? ?????? ?????? ?? "????? ??????? ?? Microsoft:
159466XL97: ????? ????? ??????? ?????? ???? ???? ????? ????

???? Microsoft ??????? ???????? ??? ??? ?? ???? ??????? ?? ?? ?????. ??? ????? ???? ?? ????? ??? ???????? ??????? ?????? ???????? ?? ???????? ???? ????. ????? ??? ??????? ???? ?????? ?? ??? ??????? ???? ??? ????? ?? ??????? ???? ??? ????????? ?????? ?????? ?????????. ???? ??????? ????? ??? Microsoft ??? ????? ????? ???? ???? ?? ?????? ?????? ??? ??????? ?????? ????? ?????? ?? ????? ??????? ?????? ??????? ?????.

??????? ?? ???? ???????

?????? ??????? ?????? ?????? ???? ??????? "?????" ?????? - ?? ???? ??????? ????:
   Sub File_Id

      Dim x as Object
      set x = CommandBars("Chart Menu Bar").Controls("Tools")
      MsgBox x.Caption & Chr(13) & x.Id

   End Sub
				

??? ??????? ???????

?????? ??????? ?????? ?????? ???? ????? ????? ?? ??????? "???" ?? ???? ??????? Worksheet ???????:
   Sub FileExit_Id()

      Dim x as Object
      set x = CommandBars("Worksheet Menu Bar").Controls("File") _
      .Controls("Exit")
      MsgBox x.Caption & Chr(13) & x.Id

   End Sub
				

??? ??????? ??????? ?? ??????? ????????

?????? ??????? ?????? ?????? ???? ????? "???? ?????" ?? ??????? ??????? ??? PivotTable ???? ????? ??????:
   Sub SubMenu_Command_Id()

      Dim x as Object
      set x = CommandBars("PivotTable Context Menu").Controls("Formulas") _
      .Controls("Calculated Item...")
      MsgBox x.Caption & Chr(13) & x.Id

   End Sub
				
?????? ??????? ?????? ?????? ?????? ????? ??????? ?? ??????? ??????? "???" ?? ???? ??????? ???????? PivotTable:
   Sub GetAll_Submenu_Ids()

      Dim ctrl as Object
      For Each ctrl in CommandBars("PivotTable Context Menu") _
      .Controls("Formulas").Controls
         MsgBox ctrl.Caption & Chr(13) & ctrl.Id
      Next ctrl

   End Sub
				

?????

?????? ??? ???? ?? ????????? ??? ????? ??????? ????? ??? ????? ?? ???? Visual Basic "????? Office," ???? ????? ??????? ???? ??? ??? ?? ???? ??? ??? "???? ?? ????? ???????."

?????? ??? ??? ??????? ?????? ???? ??? Office ????? ???? ??? ???? ??????? ?????. ??? ?? ??? ????? ??????? Microsoft Visual Basic ??? ???? ????????? ????? ??, ???? ??????? ??????? ?? "????? ??????? ?? Microsoft:
120802Office: ????? ?????/????? ?????? Office ???? ?? ????

???????

???? ???????: 162814 - ????? ??? ??????: 29/?? ?????/1427 - ??????: 4.2
????? ???
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
????? ??????: 
kbmt kbhowto kbprogramming KB162814 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????162814

????? ???????

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com