通过VBA制造EXCEL的菜单 -- 非程序员作坊-- 编程爱好者博客

通过EXCEL的宏制造菜单的测试。 1。新建一个EXCEL文件，点菜单“工具”－“宏”—“VB编辑器”。 2。点击树状菜单中的“ThisWorkBook”。 3。在弹出的窗口中输入以下代码： Dim butt0, butt1, butt2, butt3, butt4, butt5, butt6, butt7, butt8, butt9Dim butt10, butt11, butt12, butt13, butt14, butt15, butt16, butt17, butt18, butt19 Private Sub Workbook_BeforeClose(Cancel As Boolean)Application.CommandBars("菜单1").DeleteApplication.CommandBars("菜单2").DeleteApplication.CommandBars("菜单3").DeleteApplication.CommandBars("菜单4").DeleteApplication.CommandBars("菜单5").DeleteApplication.CommandBars("菜单6").DeleteApplication.CommandBars("菜单7").DeleteApplication.CommandBars("菜单8").DeleteApplication.CommandBars("菜单9").DeleteApplication.CommandBars("菜单10").DeleteApplication.CommandBars("菜单11").DeleteApplication.CommandBars("菜单12").DeleteEnd Sub Private Sub Workbook_Open()Set tbar1 = Application.CommandBars.Add(Name:="菜单1", Position:=msoBarBottom)Set tbar2 = Application.CommandBars.Add(Name:="菜单2", Position:=msoBarBottom)Set tbar3 = Application.CommandBars.Add(Name:="菜单3", Position:=msoBarBottom)Set tbar4 = Application.CommandBars.Add(Name:="菜单4", Position:=msoBarBottom)Set tbar5 = Application.CommandBars.Add(Name:="菜单5", Position:=msoBarBottom)Set tbar6 = Application.CommandBars.Add(Name:="菜单6", Position:=msoBarBottom)Set tbar7 = Application.CommandBars.Add(Name:="菜单7", Position:=msoBarBottom)Set tbar8 = Application.CommandBars.Add(Name:="菜单8", Position:=msoBarBottom)Set tbar9 = Application.CommandBars.Add(Name:="菜单9", Position:=msoBarBottom)Set tbar10 = Application.CommandBars.Add(Name:="菜单10", Position:=msoBarBottom)Set tbar11 = Application.CommandBars.Add(Name:="菜单11", Position:=msoBarBottom)Set tbar12 = Application.CommandBars.Add(Name:="菜单12", Position:=msoBarBottom) Set butt0 = tbar1.Controls.Add(Type:=msoControlButton)Set butt1 = tbar1.Controls.Add(Type:=msoControlButton)Set butt2 = tbar1.Controls.Add(Type:=msoControlButton)Set butt3 = tbar1.Controls.Add(Type:=msoControlButton)Set butt4 = tbar1.Controls.Add(Type:=msoControlButton)Set butt5 = tbar1.Controls.Add(Type:=msoControlButton)Set butt6 = tbar1.Controls.Add(Type:=msoControlButton)Set butt7 = tbar1.Controls.Add(Type:=msoControlButton)Set butt8 = tbar1.Controls.Add(Type:=msoControlButton)Set butt9 = tbar1.Controls.Add(Type:=msoControlButton)Set butt10 = tbar1.Controls.Add(Type:=msoControlButton)Set butt11 = tbar1.Controls.Add(Type:=msoControlButton)Set butt12 = tbar1.Controls.Add(Type:=msoControlButton)Set butt13 = tbar1.Controls.Add(Type:=msoControlButton)Set butt14 = tbar1.Controls.Add(Type:=msoControlButton)Set butt15 = tbar1.Controls.Add(Type:=msoControlButton)Set butt16 = tbar1.Controls.Add(Type:=msoControlButton)Set butt17 = tbar1.Controls.Add(Type:=msoControlButton)Set butt18 = tbar1.Controls.Add(Type:=msoControlButton)Set butt19 = tbar1.Controls.Add(Type:=msoControlButton)Set butt20 = tbar2.Controls.Add(Type:=msoControlButton)Set butt21 = tbar2.Controls.Add(Type:=msoControlButton)Set butt22 = tbar2.Controls.Add(Type:=msoControlButton)Set butt23 = tbar2.Controls.Add(Type:=msoControlButton)Set butt24 = tbar2.Controls.Add(Type:=msoControlButton)Set butt25 = tbar2.Controls.Add(Type:=msoControlButton)Set butt26 = tbar2.Controls.Add(Type:=msoControlButton)Set butt27 = tbar2.Controls.Add(Type:=msoControlButton)Set butt28 = tbar2.Controls.Add(Type:=msoControlButton)Set butt29 = tbar2.Controls.Add(Type:=msoControlButton)Set butt30 = tbar2.Controls.Add(Type:=msoControlButton)Set butt31 = tbar2.Controls.Add(Type:=msoControlButton)Set butt32 = tbar2.Controls.Add(Type:=msoControlButton)Set butt33 = tbar2.Controls.Add(Type:=msoControlButton)Set butt34 = tbar2.Controls.Add(Type:=msoControlButton)Set butt35 = tbar2.Controls.Add(Type:=msoControlButton)Set butt36 = tbar2.Controls.Add(Type:=msoControlButton)Set butt37 = tbar2.Controls.Add(Type:=msoControlButton)Set butt38 = tbar2.Controls.Add(Type:=msoControlButton)Set butt39 = tbar3.Controls.Add(Type:=msoControlButton)Set butt40 = tbar3.Controls.Add(Type:=msoControlButton)Set butt41 = tbar3.Controls.Add(Type:=msoControlButton)Set butt42 = tbar3.Controls.Add(Type:=msoControlButton)Set butt43 = tbar3.Controls.Add(Type:=msoControlButton)Set butt44 = tbar3.Controls.Add(Type:=msoControlButton)Set butt45 = tbar3.Controls.Add(Type:=msoControlButton)Set butt46 = tbar3.Controls.Add(Type:=msoControlButton)Set butt47 = tbar3.Controls.Add(Type:=msoControlButton)Set butt48 = tbar3.Controls.Add(Type:=msoControlButton)Set butt49 = tbar3.Controls.Add(Type:=msoControlButton)Set butt50 = tbar3.Controls.Add(Type:=msoControlButton)Set butt51 = tbar3.Controls.Add(Type:=msoControlButton)Set butt52 = tbar3.Controls.Add(Type:=msoControlButton)Set butt53 = tbar3.Controls.Add(Type:=msoControlButton)Set butt54 = tbar3.Controls.Add(Type:=msoControlButton)Set butt55 = tbar3.Controls.Add(Type:=msoControlButton)Set butt56 = tbar3.Controls.Add(Type:=msoControlButton)Set butt57 = tbar3.Controls.Add(Type:=msoControlButton)Set butt58 = tbar3.Controls.Add(Type:=msoControlButton)Set butt59 = tbar3.Controls.Add(Type:=msoControlButton)Set butt60 = tbar4.Controls.Add(Type:=msoControlButton)Set butt61 = tbar4.Controls.Add(Type:=msoControlButton)Set butt62 = tbar4.Controls.Add(Type:=msoControlButton)Set butt63 = tbar4.Controls.Add(Type:=msoControlButton)Set butt64 = tbar4.Controls.Add(Type:=msoControlButton)Set butt65 = tbar4.Controls.Add(Type:=msoControlButton)Set butt66 = tbar4.Controls.Add(Type:=msoControlButton)Set butt67 = tbar4.Controls.Add(Type:=msoControlButton)Set butt68 = tbar4.Controls.Add(Type:=msoControlButton)Set butt69 = tbar4.Controls.Add(Type:=msoControlButton)Set butt70 = tbar4.Controls.Add(Type:=msoControlButton)Set butt71 = tbar4.Controls.Add(Type:=msoControlButton)Set butt72 = tbar4.Controls.Add(Type:=msoControlButton)Set butt73 = tbar4.Controls.Add(Type:=msoControlButton)Set butt74 = tbar4.Controls.Add(Type:=msoControlButton)Set butt75 = tbar4.Controls.Add(Type:=msoControlButton)Set butt76 = tbar4.Controls.Add(Type:=msoControlButton)Set butt77 = tbar4.Controls.Add(Type:=msoControlButton)Set butt78 = tbar4.Controls.Add(Type:=msoControlButton)Set butt79 = tbar4.Controls.Add(Type:=msoControlButton)Set butt80 = tbar5.Controls.Add(Type:=msoControlButton)Set butt81 = tbar5.Controls.Add(Type:=msoControlButton)Set butt82 = tbar5.Controls.Add(Type:=msoControlButton)Set butt83 = tbar5.Controls.Add(Type:=msoControlButton)Set butt84 = tbar5.Controls.Add(Type:=msoControlButton)Set butt85 = tbar5.Controls.Add(Type:=msoControlButton)Set butt86 = tbar5.Controls.Add(Type:=msoControlButton)Set butt87 = tbar5.Controls.Add(Type:=msoControlButton)Set butt88 = tbar5.Controls.Add(Type:=msoControlButton)Set butt89 = tbar5.Controls.Add(Type:=msoControlButton)Set butt90 = tbar5.Controls.Add(Type:=msoControlButton)Set butt91 = tbar5.Controls.Add(Type:=msoControlButton)Set butt92 = tbar5.Controls.Add(Type:=msoControlButton)Set butt93 = tbar5.Controls.Add(Type:=msoControlButton)Set butt94 = tbar5.Controls.Add(Type:=msoControlButton)Set butt95 = tbar5.Controls.Add(Type:=msoControlButton)Set butt96 = tbar5.Controls.Add(Type:=msoControlButton)Set butt97 = tbar5.Controls.Add(Type:=msoControlButton)Set butt98 = tbar5.Controls.Add(Type:=msoControlButton)Set butt99 = tbar5.Controls.Add(Type:=msoControlButton)Set butt100 = tbar6.Controls.Add(Type:=msoControlButton)Set butt101 = tbar6.Controls.Add(Type:=msoControlButton)Set butt102 = tbar6.Controls.Add(Type:=msoControlButton)Set butt103 = tbar6.Controls.Add(Type:=msoControlButton)Set butt104 = tbar6.Controls.Add(Type:=msoControlButton)Set butt105 = tbar6.Controls.Add(Type:=msoControlButton)Set butt106 = tbar6.Controls.Add(Type:=msoControlButton)Set butt107 = tbar6.Controls.Add(Type:=msoControlButton)Set butt108 = tbar6.Controls.Add(Type:=msoControlButton)Set butt109 = tbar6.Controls.Add(Type:=msoControlButton)Set butt110 = tbar6.Controls.Add(Type:=msoControlButton)Set butt111 = tbar6.Controls.Add(Type:=msoControlButton)Set butt112 = tbar6.Controls.Add(Type:=msoControlButton)Set butt113 = tbar6.Controls.Add(Type:=msoControlButton)Set butt114 = tbar6.Controls.Add(Type:=msoControlButton)Set butt115 = tbar6.Controls.Add(Type:=msoControlButton)Set butt116 = tbar6.Controls.Add(Type:=msoControlButton)Set butt117 = tbar6.Controls.Add(Type:=msoControlButton)Set butt118 = tbar6.Controls.Add(Type:=msoControlButton)Set butt119 = tbar7.Controls.Add(Type:=msoControlButton)Set butt120 = tbar7.Controls.Add(Type:=msoControlButton)Set butt121 = tbar7.Controls.Add(Type:=msoControlButton)Set butt122 = tbar7.Controls.Add(Type:=msoControlButton)Set butt123 = tbar7.Controls.Add(Type:=msoControlButton)Set butt124 = tbar7.Controls.Add(Type:=msoControlButton)Set butt125 = tbar7.Controls.Add(Type:=msoControlButton)Set butt126 = tbar7.Controls.Add(Type:=msoControlButton)Set butt127 = tbar7.Controls.Add(Type:=msoControlButton)Set butt128 = tbar7.Controls.Add(Type:=msoControlButton)Set butt129 = tbar7.Controls.Add(Type:=msoControlButton)Set butt130 = tbar7.Controls.Add(Type:=msoControlButton)Set butt131 = tbar7.Controls.Add(Type:=msoControlButton)Set butt132 = tbar7.Controls.Add(Type:=msoControlButton)Set butt133 = tbar7.Controls.Add(Type:=msoControlButton)Set butt134 = tbar7.Controls.Add(Type:=msoControlButton)Set butt135 = tbar7.Controls.Add(Type:=msoControlButton)Set butt136 = tbar7.Controls.Add(Type:=msoControlButton)Set butt137 = tbar7.Controls.Add(Type:=msoControlButton)Set butt138 = tbar7.Controls.Add(Type:=msoControlButton)Set butt139 = tbar7.Controls.Add(Type:=msoControlButton)Set butt140 = tbar8.Controls.Add(Type:=msoControlButton)Set butt141 = tbar8.Controls.Add(Type:=msoControlButton)Set butt142 = tbar8.Controls.Add(Type:=msoControlButton)Set butt143 = tbar8.Controls.Add(Type:=msoControlButton)Set butt144 = tbar8.Controls.Add(Type:=msoControlButton)Set butt145 = tbar8.Controls.Add(Type:=msoControlButton)Set butt146 = tbar8.Controls.Add(Type:=msoControlButton)Set butt147 = tbar8.Controls.Add(Type:=msoControlButton)Set butt148 = tbar8.Controls.Add(Type:=msoControlButton)Set butt149 = tbar8.Controls.Add(Type:=msoControlButton)Set butt150 = tbar8.Controls.Add(Type:=msoControlButton)Set butt151 = tbar8.Controls.Add(Type:=msoControlButton)Set butt152 = tbar8.Controls.Add(Type:=msoControlButton)Set butt153 = tbar8.Controls.Add(Type:=msoControlButton)Set butt154 = tbar8.Controls.Add(Type:=msoControlButton)Set butt155 = tbar8.Controls.Add(Type:=msoControlButton)Set butt156 = tbar8.Controls.Add(Type:=msoControlButton)Set butt157 = tbar8.Controls.Add(Type:=msoControlButton)Set butt158 = tbar8.Controls.Add(Type:=msoControlButton)Set butt159 = tbar8.Controls.Add(Type:=msoControlButton)Set butt160 = tbar9.Controls.Add(Type:=msoControlButton)Set butt161 = tbar9.Controls.Add(Type:=msoControlButton)Set butt162 = tbar9.Controls.Add(Type:=msoControlButton)Set butt163 = tbar9.Controls.Add(Type:=msoControlButton)Set butt164 = tbar9.Controls.Add(Type:=msoControlButton)Set butt165 = tbar9.Controls.Add(Type:=msoControlButton)Set butt166 = tbar9.Controls.Add(Type:=msoControlButton)Set butt167 = tbar9.Controls.Add(Type:=msoControlButton)Set butt168 = tbar9.Controls.Add(Type:=msoControlButton)Set butt169 = tbar9.Controls.Add(Type:=msoControlButton)Set butt170 = tbar9.Controls.Add(Type:=msoControlButton)Set butt171 = tbar9.Controls.Add(Type:=msoControlButton)Set butt172 = tbar9.Controls.Add(Type:=msoControlButton)Set butt173 = tbar9.Controls.Add(Type:=msoControlButton)Set butt174 = tbar9.Controls.Add(Type:=msoControlButton)Set butt175 = tbar9.Controls.Add(Type:=msoControlButton)Set butt176 = tbar9.Controls.Add(Type:=msoControlButton)Set butt177 = tbar9.Controls.Add(Type:=msoControlButton)Set butt178 = tbar9.Controls.Add(Type:=msoControlButton)Set butt179 = tbar9.Controls.Add(Type:=msoControlButton)Set butt180 = tbar10.Controls.Add(Type:=msoControlButton)Set butt181 = tbar10.Controls.Add(Type:=msoControlButton)Set butt182 = tbar10.Controls.Add(Type:=msoControlButton)Set butt183 = tbar10.Controls.Add(Type:=msoControlButton)Set butt184 = tbar10.Controls.Add(Type:=msoControlButton)Set butt185 = tbar10.Controls.Add(Type:=msoControlButton)Set butt186 = tbar10.Controls.Add(Type:=msoControlButton)Set butt187 = tbar10.Controls.Add(Type:=msoControlButton)Set butt188 = tbar10.Controls.Add(Type:=msoControlButton)Set butt189 = tbar10.Controls.Add(Type:=msoControlButton)Set butt190 = tbar10.Controls.Add(Type:=msoControlButton)Set butt191 = tbar10.Controls.Add(Type:=msoControlButton)Set butt192 = tbar10.Controls.Add(Type:=msoControlButton)Set butt193 = tbar10.Controls.Add(Type:=msoControlButton)Set butt194 = tbar10.Controls.Add(Type:=msoControlButton)Set butt195 = tbar10.Controls.Add(Type:=msoControlButton)Set butt196 = tbar10.Controls.Add(Type:=msoControlButton)Set butt197 = tbar10.Controls.Add(Type:=msoControlButton)Set butt198 = tbar10.Controls.Add(Type:=msoControlButton)Set butt199 = tbar10.Controls.Add(Type:=msoControlButton)Set butt200 = tbar11.Controls.Add(Type:=msoControlButton)Set butt201 = tbar11.Controls.Add(Type:=msoControlButton)Set butt202 = tbar11.Controls.Add(Type:=msoControlButton)Set butt203 = tbar11.Controls.Add(Type:=msoControlButton)Set butt204 = tbar11.Controls.Add(Type:=msoControlButton)Set butt205 = tbar11.Controls.Add(Type:=msoControlButton)Set butt206 = tbar11.Controls.Add(Type:=msoControlButton)Set butt207 = tbar11.Controls.Add(Type:=msoControlButton)Set butt208 = tbar11.Controls.Add(Type:=msoControlButton)Set butt209 = tbar11.Controls.Add(Type:=msoControlButton)Set butt210 = tbar11.Controls.Add(Type:=msoControlButton)Set butt211 = tbar11.Controls.Add(Type:=msoControlButton)Set butt212 = tbar11.Controls.Add(Type:=msoControlButton)Set butt213 = tbar11.Controls.Add(Type:=msoControlButton)Set butt214 = tbar11.Controls.Add(Type:=msoControlButton)Set butt215 = tbar11.Controls.Add(Type:=msoControlButton)Set butt216 = tbar11.Controls.Add(Type:=msoControlButton)Set butt217 = tbar11.Controls.Add(Type:=msoControlButton)Set butt218 = tbar11.Controls.Add(Type:=msoControlButton)Set butt219 = tbar11.Controls.Add(Type:=msoControlButton)Set butt220 = tbar12.Controls.Add(Type:=msoControlButton)Set butt221 = tbar12.Controls.Add(Type:=msoControlButton)Set butt222 = tbar12.Controls.Add(Type:=msoControlButton)Set butt223 = tbar12.Controls.Add(Type:=msoControlButton)Set butt224 = tbar12.Controls.Add(Type:=msoControlButton)Set butt225 = tbar12.Controls.Add(Type:=msoControlButton)Set butt226 = tbar12.Controls.Add(Type:=msoControlButton)Set butt227 = tbar12.Controls.Add(Type:=msoControlButton)Set butt228 = tbar12.Controls.Add(Type:=msoControlButton)Set butt229 = tbar12.Controls.Add(Type:=msoControlButton)Set butt230 = tbar12.Controls.Add(Type:=msoControlButton)Set butt231 = tbar12.Controls.Add(Type:=msoControlButton)Set butt232 = tbar12.Controls.Add(Type:=msoControlButton)Set butt233 = tbar12.Controls.Add(Type:=msoControlButton)Set butt234 = tbar12.Controls.Add(Type:=msoControlButton)Set butt235 = tbar12.Controls.Add(Type:=msoControlButton)Set butt236 = tbar12.Controls.Add(Type:=msoControlButton)Set butt237 = tbar12.Controls.Add(Type:=msoControlButton)Set butt238 = tbar12.Controls.Add(Type:=msoControlButton)Set butt239 = tbar12.Controls.Add(Type:=msoControlButton) With butt0 .Caption = "0" .FaceId = 0 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt1 .Caption = "1" .FaceId = 1 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt2 .Caption = "2" .FaceId = 2 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt3 .Caption = "3" .FaceId = 3 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt4 .Caption = "4" .FaceId = 4 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt5 .Caption = "5" .FaceId = 5 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt6 .Caption = "6" .FaceId = 6 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt7 .Caption = "7" .FaceId = 7 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt8 .Caption = "8" .FaceId = 8 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt9 .Caption = "9" .FaceId = 9 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt10 .Caption = "10" .FaceId = 10 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt11 .Caption = "11" .FaceId = 11 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt12 .Caption = "12" .FaceId = 12 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt13 .Caption = "13" .FaceId = 13 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt14 .Caption = "14" .FaceId = 14 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt15 .Caption = "15" .FaceId = 15 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt16 .Caption = "16" .FaceId = 16 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt17 .Caption = "17" .FaceId = 17 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt18 .Caption = "18" .FaceId = 18 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt19 .Caption = "19" .FaceId = 19 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt20 .Caption = "20" .FaceId = 20 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt21 .Caption = "21" .FaceId = 21 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt22 .Caption = "22" .FaceId = 22 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt23 .Caption = "23" .FaceId = 23 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt24 .Caption = "24" .FaceId = 24 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt25 .Caption = "25" .FaceId = 25 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt26 .Caption = "26" .FaceId = 26 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt27 .Caption = "27" .FaceId = 27 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt28 .Caption = "28" .FaceId = 28 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt29 .Caption = "29" .FaceId = 29 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt30 .Caption = "30" .FaceId = 30 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt31 .Caption = "31" .FaceId = 31 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt32 .Caption = "32" .FaceId = 32 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt33 .Caption = "33" .FaceId = 33 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt34 .Caption = "34" .FaceId = 34 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt35 .Caption = "35" .FaceId = 35 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt36 .Caption = "36" .FaceId = 36 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt37 .Caption = "37" .FaceId = 37 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt38 .Caption = "38" .FaceId = 38 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt39 .Caption = "39" .FaceId = 39 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt40 .Caption = "40" .FaceId = 40 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt41 .Caption = "41" .FaceId = 41 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt42 .Caption = "42" .FaceId = 42 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt43 .Caption = "43" .FaceId = 43 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt44 .Caption = "44" .FaceId = 44 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt45 .Caption = "45" .FaceId = 45 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt46 .Caption = "46" .FaceId = 46 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt47 .Caption = "47" .FaceId = 47 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt48 .Caption = "48" .FaceId = 48 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt49 .Caption = "49" .FaceId = 49 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt50 .Caption = "50" .FaceId = 50 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt51 .Caption = "51" .FaceId = 51 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt52 .Caption = "52" .FaceId = 52 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt53 .Caption = "53" .FaceId = 53 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt54 .Caption = "54" .FaceId = 54 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt55 .Caption = "55" .FaceId = 55 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt56 .Caption = "56" .FaceId = 56 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt57 .Caption = "57" .FaceId = 57 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt58 .Caption = "58" .FaceId = 58 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt59 .Caption = "59" .FaceId = 59 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt60 .Caption = "60" .FaceId = 60 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt61 .Caption = "61" .FaceId = 61 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt62 .Caption = "62" .FaceId = 62 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt63 .Caption = "63" .FaceId = 63 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt64 .Caption = "64" .FaceId = 64 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt65 .Caption = "65" .FaceId = 65 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt66 .Caption = "66" .FaceId = 66 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt67 .Caption = "67" .FaceId = 67 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt68 .Caption = "68" .FaceId = 68 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt69 .Caption = "69" .FaceId = 69 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt70 .Caption = "70" .FaceId = 70 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt71 .Caption = "71" .FaceId = 71 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt72 .Caption = "72" .FaceId = 72 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt73 .Caption = "73" .FaceId = 73 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt74 .Caption = "74" .FaceId = 74 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt75 .Caption = "75" .FaceId = 75 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt76 .Caption = "76" .FaceId = 76 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt77 .Caption = "77" .FaceId = 77 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt78 .Caption = "78" .FaceId = 78 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt79 .Caption = "79" .FaceId = 79 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt80 .Caption = "80" .FaceId = 80 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt81 .Caption = "81" .FaceId = 81 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt82 .Caption = "82" .FaceId = 82 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt83 .Caption = "83" .FaceId = 83 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt84 .Caption = "84" .FaceId = 84 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt85 .Caption = "85" .FaceId = 85 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt86 .Caption = "86" .FaceId = 86 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt87 .Caption = "87" .FaceId = 87 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt88 .Caption = "88" .FaceId = 88 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt89 .Caption = "89" .FaceId = 89 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt90 .Caption = "90" .FaceId = 90 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt91 .Caption = "91" .FaceId = 91 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt92 .Caption = "92" .FaceId = 92 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt93 .Caption = "93" .FaceId = 93 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt94 .Caption = "94" .FaceId = 94 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt95 .Caption = "95" .FaceId = 95 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt96 .Caption = "96" .FaceId = 96 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt97 .Caption = "97" .FaceId = 97 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt98 .Caption = "98" .FaceId = 98 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt99 .Caption = "99" .FaceId = 99 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt100 .Caption = "100" .FaceId = 100 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt101 .Caption = "101" .FaceId = 101 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt102 .Caption = "102" .FaceId = 102 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt103 .Caption = "103" .FaceId = 103 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt104 .Caption = "104" .FaceId = 104 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt105 .Caption = "105" .FaceId = 105 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt106 .Caption = "106" .FaceId = 106 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt107 .Caption = "107" .FaceId = 107 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt108 .Caption = "108" .FaceId = 108 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt109 .Caption = "109" .FaceId = 109 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt110 .Caption = "110" .FaceId = 110 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt111 .Caption = "111" .FaceId = 111 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt112 .Caption = "112" .FaceId = 112 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt113 .Caption = "113" .FaceId = 113 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt114 .Caption = "114" .FaceId = 114 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt115 .Caption = "115" .FaceId = 115 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt116 .Caption = "116" .FaceId = 116 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt117 .Caption = "117" .FaceId = 117 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt118 .Caption = "118" .FaceId = 118 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt119 .Caption = "119" .FaceId = 119 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt120 .Caption = "120" .FaceId = 120 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt121 .Caption = "121" .FaceId = 121 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt122 .Caption = "122" .FaceId = 122 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt123 .Caption = "123" .FaceId = 123 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt124 .Caption = "124" .FaceId = 124 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt125 .Caption = "125" .FaceId = 125 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt126 .Caption = "126" .FaceId = 126 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt127 .Caption = "127" .FaceId = 127 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt128 .Caption = "128" .FaceId = 128 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt129 .Caption = "129" .FaceId = 129 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt130 .Caption = "130" .FaceId = 130 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt131 .Caption = "131" .FaceId = 131 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt132 .Caption = "132" .FaceId = 132 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt133 .Caption = "133" .FaceId = 133 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt134 .Caption = "134" .FaceId = 134 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt135 .Caption = "135" .FaceId = 135 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt136 .Caption = "136" .FaceId = 136 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt137 .Caption = "137" .FaceId = 137 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt138 .Caption = "138" .FaceId = 138 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt139 .Caption = "139" .FaceId = 139 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt140 .Caption = "140" .FaceId = 140 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt141 .Caption = "141" .FaceId = 141 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt142 .Caption = "142" .FaceId = 142 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt143 .Caption = "143" .FaceId = 143 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt144 .Caption = "144" .FaceId = 144 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt145 .Caption = "145" .FaceId = 145 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt146 .Caption = "146" .FaceId = 146 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt147 .Caption = "147" .FaceId = 147 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt148 .Caption = "148" .FaceId = 148 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt149 .Caption = "149" .FaceId = 149 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt150 .Caption = "150" .FaceId = 150 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt151 .Caption = "151" .FaceId = 151 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt152 .Caption = "152" .FaceId = 152 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt153 .Caption = "153" .FaceId = 153 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt154 .Caption = "154" .FaceId = 154 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt155 .Caption = "155" .FaceId = 155 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt156 .Caption = "156" .FaceId = 156 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt157 .Caption = "157" .FaceId = 157 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt158 .Caption = "158" .FaceId = 158 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt159 .Caption = "159" .FaceId = 159 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt160 .Caption = "160" .FaceId = 160 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt161 .Caption = "161" .FaceId = 161 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt162 .Caption = "162" .FaceId = 162 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt163 .Caption = "163" .FaceId = 163 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt164 .Caption = "164" .FaceId = 164 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt165 .Caption = "165" .FaceId = 165 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt166 .Caption = "166" .FaceId = 166 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt167 .Caption = "167" .FaceId = 167 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt168 .Caption = "168" .FaceId = 168 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt169 .Caption = "169" .FaceId = 169 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt170 .Caption = "170" .FaceId = 170 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt171 .Caption = "171" .FaceId = 171 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt172 .Caption = "172" .FaceId = 172 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt173 .Caption = "173" .FaceId = 173 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt174 .Caption = "174" .FaceId = 174 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt175 .Caption = "175" .FaceId = 175 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt176 .Caption = "176" .FaceId = 176 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt177 .Caption = "177" .FaceId = 177 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt178 .Caption = "178" .FaceId = 178 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt179 .Caption = "179" .FaceId = 179 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt180 .Caption = "180" .FaceId = 180 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt181 .Caption = "181" .FaceId = 181 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt182 .Caption = "182" .FaceId = 182 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt183 .Caption = "183" .FaceId = 183 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt184 .Caption = "184" .FaceId = 184 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt185 .Caption = "185" .FaceId = 185 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt186 .Caption = "186" .FaceId = 186 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt187 .Caption = "187" .FaceId = 187 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt188 .Caption = "188" .FaceId = 188 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt189 .Caption = "189" .FaceId = 189 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt190 .Caption = "190" .FaceId = 190 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt191 .Caption = "191" .FaceId = 191 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt192 .Caption = "192" .FaceId = 192 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt193 .Caption = "193" .FaceId = 193 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt194 .Caption = "194" .FaceId = 194 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt195 .Caption = "195" .FaceId = 195 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt196 .Caption = "196" .FaceId = 196 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt197 .Caption = "197" .FaceId = 197 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt198 .Caption = "198" .FaceId = 198 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt199 .Caption = "199" .FaceId = 199 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt200 .Caption = "200" .FaceId = 200 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt201 .Caption = "201" .FaceId = 201 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt202 .Caption = "202" .FaceId = 202 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt203 .Caption = "203" .FaceId = 203 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt204 .Caption = "204" .FaceId = 204 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt205 .Caption = "205" .FaceId = 205 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt206 .Caption = "206" .FaceId = 206 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt207 .Caption = "207" .FaceId = 207 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt208 .Caption = "208" .FaceId = 208 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt209 .Caption = "209" .FaceId = 209 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt210 .Caption = "210" .FaceId = 210 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt211 .Caption = "211" .FaceId = 211 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt212 .Caption = "212" .FaceId = 212 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt213 .Caption = "213" .FaceId = 213 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt214 .Caption = "214" .FaceId = 214 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt215 .Caption = "215" .FaceId = 215 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt216 .Caption = "216" .FaceId = 216 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt217 .Caption = "217" .FaceId = 217 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt218 .Caption = "218" .FaceId = 218 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt219 .Caption = "219" .FaceId = 219 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt220 .Caption = "220" .FaceId = 220 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt221 .Caption = "221" .FaceId = 221 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt222 .Caption = "222" .FaceId = 222 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt223 .Caption = "223" .FaceId = 223 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt224 .Caption = "224" .FaceId = 224 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt225 .Caption = "225" .FaceId = 225 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt226 .Caption = "226" .FaceId = 226 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt227 .Caption = "227" .FaceId = 227 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt228 .Caption = "228" .FaceId = 228 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt229 .Caption = "229" .FaceId = 229 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt230 .Caption = "230" .FaceId = 230 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt231 .Caption = "231" .FaceId = 231 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt232 .Caption = "232" .FaceId = 232 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt233 .Caption = "233" .FaceId = 233 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt234 .Caption = "234" .FaceId = 234 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt235 .Caption = "235" .FaceId = 235 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt236 .Caption = "236" .FaceId = 236 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt237 .Caption = "237" .FaceId = 237 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt238 .Caption = "238" .FaceId = 238 .Style = msoButtonIconAndCaption .OnAction = "AA"End WithWith butt239 .Caption = "239" .FaceId = 239 .Style = msoButtonIconAndCaption .OnAction = "AA"End With tbar1.Visible = Truetbar2.Visible = Truetbar3.Visible = Truetbar4.Visible = Truetbar5.Visible = Truetbar6.Visible = Truetbar7.Visible = Truetbar8.Visible = Truetbar9.Visible = Truetbar10.Visible = Truetbar11.Visible = Truetbar12.Visible = True End Sub4。点击“VB编辑器”菜单中的“插入”—“模块”，在弹出的空白窗口中输入以下： Public Sub AA()MsgBox "功能还没有，别乱按！"End Sub 5。关闭窗口，保存好EXCEL文件。 6。重新打开这个EXCEL文件，当然要允许宏运行。 7。看结果。

博客介绍

正文

通过VBA制造EXCEL的菜单2006-05-26 16:37:00

评论