EXCELVBA工具栏代码.docVIP

VBA]Excel工具栏代码1.定义一些全局变量 Dim Obj_Toolbar As CommandBar’代表工具栏的变量Dim Obj_Menu As CommandBarPopup’代表菜单的变量Dim Obj_Toolbar_button As CommandBarButton’代表菜单项和按钮的变量 2.编制生成工具栏和菜单的子程序 Sub addbutton()’创建工具栏和菜单并设置属性的子程序_deletebutton’调用删除工具栏和菜单的子程序Set Obj_Toolbar = Application.CommandBars.Add(My_Custom_Bar)’新建工具栏，“My_Custom_Bar”代表工具栏的名称Set Obj_Menu = Obj_Toolbar.Controls.Add(Type:=msoControlPopup, ID:=1)’在工具栏上新建下拉菜单，“ID:=1”代表该工具栏的功能由用户自定义，下同With Obj_Menu’设置下拉菜单的属性.Caption = 风格切换’设置标题.BeginGroup = True’设置分组End With Set Obj_Toolbar_button = Obj_Menu.Controls.Add(Type:=msoControlButton, ID:=1)’新建菜单项，下同With Obj_Toolbar_button’设置菜单项的属性，下同.Caption = 标准风格.BeginGroup = True.OnAction = Standard_Style’设置单击菜单项执行的子程序名称End With Set Obj_Toolbar_button = Obj_Menu.Controls.Add(Type:=msoControlButton, ID:=1)’新建其他的菜单项，并设置属性With Obj_Toolbar_button.Caption = 简单风格.BeginGroup = True.OnAction = Simple_StyleEnd WithSet Obj_Toolbar_button = Obj_Menu.Controls.Add(Type:=msoControlButton, ID:=1)With Obj_Toolbar_button.Caption = 绘图和制表风格.BeginGroup = True.OnAction = Draw_Table_StyleEnd WithSet Obj_Toolbar_button = Obj_Toolbar.Controls.Add(Type:=msoControlButton, ID:=1)’新建工具栏按钮With Obj_Toolbar_button’设置按钮的属性?? .Caption = 关于?? .Style = msoButtonIconAndCaption?? .FaceId = 984?? .OnAction = Show_MsgEnd WithWith Obj_Toolbar’设置工具栏的属性.Visible = True’工具栏可视.Enabled = True’工具栏可用.Position = msoBarTop’工具栏置顶End WithSet Obj_Menu = Application.CommandBars(Menu Bar).Controls.Add(Type:=msoControlPopup, ID:=1)’在Word XP的主菜单中新建菜单，“Menu Bar”代表Word XP主菜单的名称With Obj_Menu’设置新建菜单的属性.Caption = 风格切换End WithSet Obj_Toolbar_button = Obj_Menu.Controls.Add(Type:=msoControlButton, ID:=1)’在新建菜单中添加菜单项，下同With Obj_Toolbar_button’设置新建菜单项的属性，下同.Caption = 标准风格.BeginGroup = True.OnAction = Standard_StyleEnd WithSet Obj_Toolbar_button = Obj_Menu.Controls.Add(Type:=msoControlButton, ID:=1)’新建其他的菜单项，并设置属性With Obj_Toolbar_button.Caption = 简单风格.BeginGroup = True.OnAction = Simple_StyleEnd WithSet