在Excel 2007中创建自定义菜单并为菜单项指定宏

1、莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅

2、蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆

3、蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄

4、蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅

5、薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃

6、薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃

7、蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄

8、蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂

9、蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节

10、螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆莃莂袆袂蒂蒅虿膁蒁薇袄肇蒀蝿蚇肃葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿蒆蒅罿羅膃薈螂袁膂蚀羇膀膁莀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂膇蕿蚀肈芆蚁袅羄芅莁蚈袀芄蒃袃艿芃蚅蚆膅节螈羂肁芁蒇螄羇芁薀羀袃芀蚂螃膁荿莁羈肇莈蒄螁羃莇薆羆罿莆螈衿芈膄膇莁袃膃艿薆蝿膂莁荿螅膂膁蚅蚁膁芃蒇罿膀莆蚃袅腿蒈蒆螁膈膈蚁蚇芇芀蒄羆芇莂蚀袂芆薅蒂袈芅芄螈螄袁莇薁蚀袀葿螆羈袀腿蕿袄衿芁螄螀羈莃薇蚆羇蒅莀羅羆膅薅羁羅莇莈袇羄蒀蚄螃羄腿蒇虿羃节蚂羈羂莄蒅袄肁蒆蚀螀肀膆蒃蚆聿芈虿蚂肈蒁蒁羀肈膀螇袆肇芃薀螂肆莅螅蚈肅蒇薈羇膄膇莁袃膃艿薆蝿膂莁荿螅膂

11、膁蚅蚁膁芃蒇罿膀莆蚃袅腿蒈蒆螁膈膈蚁蚇芇芀蒄羆芇莂蚀袂芆薅蒂袈芅芄螈螄袁莇薁蚀袀葿螆羈袀腿蕿袄衿芁螄螀羈莃薇蚆羇蒅莀羅羆膅薅羁羅莇莈袇羄蒀蚄螃羄腿蒇虿羃节蚂羈羂莄蒅袄肁蒆蚀螀肀膆蒃蚆聿芈虿蚂肈蒁蒁羀肈膀螇袆肇芃薀螂肆莅螅蚈肅蒇薈羇膄膇莁袃膃艿薆蝿膂莁荿螅膂膁蚅蚁膁芃蒇罿膀莆蚃袅腿蒈蒆螁膈膈蚁蚇芇芀蒄羆芇莂蚀袂芆薅蒂袈芅芄螈螄袁莇薁蚀袀葿螆羈袀腿蕿袄衿芁螄螀羈莃薇蚆羇蒅莀羅羆膅薅羁羅莇莈袇羄蒀蚄螃羄腿蒇虿羃节蚂羈羂莄蒅袄肁蒆蚀螀肀膆蒃蚆聿芈虿蚂肈蒁蒁羀肈膀螇袆肇芃薀螂肆莅螅蚈肅蒇薈羇膄膇莁袃膃艿薆蝿膂莁荿螅膂膁蚅蚁膁芃蒇罿膀莆蚃袅腿蒈蒆螁膈膈蚁蚇芇芀蒄羆芇莂蚀袂芆薅蒂袈芅芄螈螄袁莇薁蚀袀葿螆羈袀

12、腿蕿袄衿芁螄螀羈莃薇蚆羇蒅莀羅羆膅薅羁羅莇莈袇羄蒀蚄螃羄腿蒇虿羃节蚂羈羂莄蒅袄肁蒆蚀螀肀膆蒃蚆聿芈虿蚂肈蒁蒁羀肈膀螇袆肇芃薀螂肆莅螅蚈肅蒇薈羇膄膇莁袃膃艿薆蝿膂莁荿螅膂膁蚅蚁膁芃蒇罿膀莆蚃袅腿蒈蒆螁膈膈蚁蚇芇芀蒄羆芇莂蚀袂芆薅蒂袈芅芄螈螄袁莇薁蚀袀葿螆羈袀腿蕿袄衿芁螄螀羈莃薇蚆羇蒅莀羅羆膅薅羁羅莇莈袇羄蒀蚄螃羄腿蒇虿羃节蚂羈羂莄蒅袄肁蒆蚀螀肀膆蒃蚆聿芈虿蚂肈蒁蒁羀肈膀螇袆肇芃薀螂肆莅螅蚈肅蒇薈羇膄膇莁袃膃艿薆蝿膂莁荿螅膂膁蚅蚁膁芃蒇罿膀莆蚃袅腿蒈蒆螁膈膈蚁蚇芇芀蒄羆芇莂蚀袂芆薅蒂袈芅芄螈螄袁莇薁蚀袀葿螆羈袀腿蕿袄衿芁螄螀羈莃薇蚆羇蒅莀羅羆膅薅羁羅莇莈袇羄蒀蚄螃羄腿蒇虿羃节蚂羈羂莄蒅袄肁蒆蚀螀肀

13、膆蒃蚆聿芈虿蚂肈蒁蒁羀肈膀螇袆肇芃薀螂肆莅螅蚈肅蒇薈羇膄膇莁袃膃艿薆蝿膂莁荿螅膂膁蚅蚁膁芃蒇罿膀莆蚃袅腿蒈蒆螁膈膈蚁蚇芇芀蒄羆芇莂蚀袂芆薅蒂袈芅芄螈螄袁莇薁蚀袀葿螆羈袀腿蕿袄衿芁螄螀羈莃薇蚆羇蒅莀羅羆膅薅羁羅莇莈袇羄蒀蚄螃羄腿蒇虿羃节蚂羈羂莄蒅袄肁蒆蚀螀肀膆蒃蚆聿芈虿蚂肈蒁蒁羀肈膀螇袆肇芃薀螂肆莅螅蚈肅蒇薈羇膄膇莁袃膃艿薆蝿膂莁荿螅膂膁蚅蚁膁芃蒇罿膀莆蚃袅腿蒈蒆螁膈膈蚁蚇芇芀蒄羆芇莂蚀袂芆薅蒂袈芅芄螈螄袁莇薁蚀袀葿螆羈袀腿蕿袄衿芁螄螀羈莃薇蚆羇蒅莀羅羆膅薅羁羅莇莈袇羄蒀蚄螃羄腿蒇虿羃节蚂羈羂莄蒅袄肁蒆蚀螀肀膆蒃蚆聿芈虿蚂肈蒁蒁羀肈膀螇袆肇芃薀螂肆莅螅蚈肅蒇薈羇膄膇莁袃膃艿薆蝿膂莁荿螅膂膁蚅蚁膁

14、芃蒇罿膀莆蚃袅腿蒈蒆螁膈膈蚁蚇芇芀蒄羆芇莂蚀袂芆薅蒂袈芅芄螈螄袁莇薁蚀袀葿螆羈袀腿蕿袄衿芁螄螀羈莃薇蚆羇蒅莀羅羆膅薅羁羅莇莈袇羄蒀蚄螃羄腿蒇虿羃节蚂羈羂莄蒅袄肁蒆蚀螀肀膆蒃蚆聿芈虿蚂肈蒁蒁羀肈膀螇袆肇芃薀螂肆莅螅蚈肅蒇薈羇膄膇莁袃膃艿薆蝿膂莁荿螅膂膁蚅蚁膁芃蒇罿膀莆蚃袅腿蒈蒆螁膈膈蚁蚇芇芀蒄羆芇莂蚀袂芆薅蒂袈芅芄螈螄袁莇薁蚀袀葿螆羈袀腿蕿袄衿芁螄螀羈莃薇蚆羇蒅莀羅羆膅薅羁羅莇莈袇羄蒀蚄螃羄腿蒇虿羃节蚂羈羂莄蒅袄肁蒆蚀螀肀膆蒃蚆聿芈虿蚂肈蒁蒁羀肈膀螇袆肇芃薀螂肆莅螅蚈肅蒇薈羇膄膇莁袃膃艿薆蝿膂莁荿螅膂膁蚅蚁膁芃蒇罿膀莆蚃袅腿蒈蒆螁膈膈蚁蚇芇芀蒄羆芇莂蚀袂芆薅蒂袈芅芄螈螄袁莇薁蚀袀葿螆羈袀腿蕿袄衿

15、芁螄螀羈莃薇蚆羇蒅莀羅羆膅薅羁羅莇莈袇羄蒀蚄螃羄腿蒇虿羃节蚂羈羂莄蒅袄肁蒆蚀螀肀膆蒃蚆聿芈虿蚂肈蒁蒁羀肈膀螇袆肇芃薀螂肆莅螅蚈肅蒇薈羇膄膇莁袃膃艿薆蝿膂莁荿螅膂膁蚅蚁膁芃蒇罿膀莆蚃袅腿蒈蒆螁膈膈蚁蚇芇芀蒄羆芇莂蚀袂芆薅蒂袈芅芄螈螄袁莇薁蚀袀葿螆羈袀腿蕿袄衿芁螄螀羈莃薇蚆羇蒅莀羅羆膅薅羁羅莇莈袇羄蒀蚄螃羄腿蒇虿羃节蚂羈羂莄蒅袄肁蒆蚀螀肀膆蒃蚆聿芈虿蚂肈蒁蒁羀肈膀螇袆肇芃薀螂肆莅螅蚈肅蒇薈羇膄膇莁袃膃艿薆蝿膂莁荿螅膂膁蚅蚁膁芃蒇罿膀莆蚃袅腿蒈蒆螁膈膈蚁蚇芇芀蒄羆芇莂蚀袂芆薅蒂袈芅芄螈螄袁莇薁蚀袀葿螆羈袀腿蕿袄衿芁螄螀羈莃薇蚆羇蒅莀羅 在Excel 2007中创建自定义菜单并为菜单项指定宏Excel

16、 2007使用了新的用户界面，每项功能都在称作Ribbon的功能区中且它们的位置都是固定的，仅快速访问工具栏(QAT)与先前版本的工具栏相似，可用来添加或删除命令。因此，在Excel 2007中创建自定义菜单并为菜单项指定宏不像在Excel 2003中那样容易。- - - -技术基础 识别工具栏图像如果使用Excel 97或以后的版本，您知道它使用一些图像在它的内置菜单和工具栏中。您能够通过设置FaceID属性为一个特定的整数在自定义菜单和工具栏中使用这些内置图像。然而，问题是如何知道图像所对应的整数。下面的子过程创建了一个带有开始的250个FaceID图像(见下图1所示)的自定义工具栏。创建

17、了工具栏之后，将鼠标指针放在按钮上面来找到与图像相应的FaceID值。但单击工具栏按钮不会产生任何效果，因为子过程没有在OnAction属性中分配任何宏。当然，您能够通过改变IDStart和IDStop的值来看到更多的图像，最后一个FaceID图像显示数字3518(也有一些空白图像)。img 图1：创建一个FaceID工具栏，当鼠标放在某图像上时将显示相应的数字下面是子过程代码：Sub ShowFaceIDs()Dim NewToolbar As CommandBarDim NewButton As CommandBarButtonDim i As Integer, IDStart As In

18、teger, IDStop As Integer如果已存在FaceIds工具栏则删除On Error Resume NextApplication.CommandBars("FaceIds").DeleteOn Error GoTo 0 添加一个空工具栏Set NewToolbar = Application.CommandBars.Add _(Name:="FaceIds", temporary:=True)NewToolbar.Visible = True 可以改变下面的值来看到不同的FaceIDsIDStart =

19、1IDStop = 250 For i = IDStart To IDStopSet NewButton = NewToolbar.Controls.Add _ (Type:=msoControlButton, ID:=2950)NewButton.FaceId = iNewButton.Caption = "FaceID = " & iNext iNewToolbar.Width = 600End Sub此外，也可以使用VBA代码在工作表中列出所有的FaceID图像和相对应的整数。该代码由John D. McLean编写，代码清单如下： 在

20、工作表中显示所有工具栏按钮图像/图标，由36行100列组成 对应的最左/右列和最顶/底行中的数字相加即为该图标号 Sub DisplayButtonFacesInGrid()Const cbName = "JDMTestToolBar"Dim cBar As CommandBar, cBut As CommandBarControlDim r As Long, c As Integer, count As IntegerApplication.StatusBar = "Creating Button FaceIDs ."

21、Workbooks.Add创建四周的数字For r = 0 To 35Cells(r + 2, 1).Value = 100 * r: Cells(r + 2, 102).Value = 100 * rNext rFor c = 0 To 99Cells(1, c + 2).Value = c: Cells(38, c + 2).Value = c Next cRange("A1:A38").SelectWith Selection.Font.Bold = True.HorizontalAlignment = xlCenter.VerticalAlignme

22、nt = xlCenterEnd WithRange("CX1:CX38").SelectWith Selection.Font.Bold = True.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterEnd WithRange("B1:CW1").SelectWith Selection.Font.Bold = True.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterEnd Wit

23、hRange("B38:CW38").SelectWith Selection.Font.Bold = True.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterEnd WithRange("E5").SelectSelection.Value = "Please wait ." With Selection.Font.Name = "Arial".Size = 24.Bold =

24、True.ColorIndex = 3End WithRange("E5:J10").SelectWith Selection.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenter.MergeCells = TrueEnd WithApplication.ScreenUpdating = FalseWith Selection.ClearContents.UnMergeEnd WithOn Error Resume NextCommandBars(cbName).DeleteOn Error

25、GoTo 0Set cBar = CommandBars.Add 创建带有一个按钮的临时工具栏With cBar.Name = cbName.Top = 0.Left = 0.Visible = TrueEnd Withr = 2: c = 2: count = 0 在单元格Cell(2,2)中的FaceID号为0Set cBut = CommandBars(cbName).Controls.Add(Type:=msoControlButton) With cButDo 循环所有的FaceIDs .FaceId = countCells(r, c).Select 分配至按钮然后复制到工作表 .

26、CopyFaceSelection.PasteSpecialCells(1, 1).Copyc = c + 1If c >= 102 Then 更新复制的位置c = 2r = r + 1End Ifcount = count + 1Loop While count < 3519 3519是最大的FaceID号 End WithRows("1:38").RowHeight = 24.6 增大单元格尺寸 Columns("A:CX").ColumnWidth = 5.56With ActiveShe

27、et.DrawingObjects 增大按钮尺寸.ShapeRange.ScaleWidth 2#, msoFalse,msoScaleFromTopLeft.ShapeRange.ScaleHeight 2#, msoFalse, msoScaleFromTopLeft.ShapeRange.IncrementLeft 8.4.ShapeRange.IncrementTop 3#End WithRange(Cells(2, 2), Cells(37, 101).Select和背景With SelectionWith .Interior.ColorIndex = 15.Pattern = xl

28、SolidEnd WithWith .Borders(xlInsideVertical).LineStyle = xlContinuous.Weight = xlThin.ColorIndex = 2End WithWith .Borders(xlInsideHorizontal).LineStyle = xlContinuous.Weight = xlThin.ColorIndex = 2 格式化网格线End WithEnd With恢复Excel设置CommandBars(cbName).DeleteOn Error GoTo 0Range("A1").

29、SelectApplication.ScreenUpdating = TrueApplication.StatusBar = ""End Sub运行上面的代码后，将新建一个工作簿，并在该工作簿内列出所有的内置图标图像，最左列、最右列、最顶部、最底部为相应的数字，将某图标对应的最左(或右)列的数字与最顶一行(或最底一行)的数字相加，即为该图标对应的数字。(注：上面的代码运行较慢，需耐心等待。)在Excel 97至Excel 2003等版本中，可以利用“自定义”对话框来创建新菜单，并建立菜单项，但很难创建子菜单。因此，特定的工作簿菜单必须编写VBA代码来创建。下

30、面的技术介绍了使用一种相当简单的方法在工作表菜单栏中创建自定义菜单，当工作簿打开时则显示自定义的菜单，该工作簿关闭时则删除自定义的菜单。先来看看一个示例，该示例演示了这项技术。示例文件包含了所有需要创建自定义菜单的VBA代码，在大多数情况下，不需要改变这些代码，只需按自已的意图简单地自定义MenuSheet工作表即可。VBA代码清单如下：Sub CreateMenu() 当工作簿打开时本过程自动执行. 注:在这个子过程中没有错误处理语句.Dim MenuSheet As WorksheetDim MenuObject As CommandBarPopupDim MenuItem As Obje

31、ctDim SubMenuItem As CommandBarButtonDim Row As IntegerDim MenuLevel, NextLevel, PositionOrMacro, Caption, Divider, FaceId 获取菜单数据的位置Set MenuSheet = ThisWorkbook.Sheets("MenuSheet") 确保菜单不重复Call DeleteMenu 行初始值Row = 2 使用MenuSheet工作表中的数据添加菜单,菜单项和子菜单项 Do Until IsEmpty(MenuSheet.Cells(R

32、ow, 1)With MenuSheetMenuLevel = .Cells(Row, 1)Caption = .Cells(Row, 2)PositionOrMacro = .Cells(Row, 3)Divider = .Cells(Row, 4)FaceId = .Cells(Row, 5)NextLevel = .Cells(Row + 1, 1)End With Select Case MenuLevelCase 1 代表菜单 添加顶级菜单到工作表菜单栏中Set MenuObject = Application.CommandBars(1). _Controls.Add(Type:=

33、msoControlPopup, _Before:=PositionOrMacro, _Temporary:=True)MenuObject.Caption = Caption Case 2 代表菜单项If NextLevel = 3 ThenSet MenuItem = MenuObject.Controls.Add(Type:=msoControlPopup)ElseSet MenuItem = MenuObject.Controls.Add(Type:=msoControlButton)MenuItem.OnAction = PositionOrMacro End IfMenuItem.

34、Caption = CaptionIf FaceId <> "" Then MenuItem.FaceId = FaceId If Divider Then MenuItem.BeginGroup = TrueCase 3 代表子菜单项Set SubMenuItem = MenuItem.Controls.Add(Type:=msoControlButton)SubMenuItem.Caption = CaptionSubMenuItem.OnAction = PositionOrMacroIf FaceId <&a

35、mp;gt; "" Then SubMenuItem.FaceId = FaceIdIf Divider Then SubMenuItem.BeginGroup = True End SelectRow = Row + 1LoopEnd SubSub DeleteMenu() 这个子过程在工作簿关闭时执行 删除自定义菜单Dim MenuSheet As WorksheetDim Row As IntegerDim Caption As String On Error Resume NextSet MenuSheet = ThisWorkbook.Sheets

36、("MenuSheet") Row = 2Do Until IsEmpty(MenuSheet.Cells(Row, 1) If MenuSheet.Cells(Row, 1) = 1 Then Caption = MenuSheet.Cells(Row, 2)Application.CommandBars(1).Controls(Caption).Delete End IfRow = Row + 1LoopOn Error GoTo 0End SubSub DummyMacro()MsgBox "您可以在本过程中添加相应的操作代码.&am

37、p;quot;End Sub 换句话说，该技术使用了一个存放在MenuSheet工作表中的表格(如下图2所示)，只需按自已的需要简单地修改表中的数据，就可创建自已的菜单。img 图2：存放菜单项的表格该表格包含5列：(1) 级别：指定的菜单项的级别，有效值是1、2、3。第1级别是菜单，第2级别是菜单项，第3级别是子菜单项。正常情况下，有一个第1级别的菜单，下面包含有第2级别的菜单项。一个第2级别的菜单项可能包含或不包含有第3级别的菜单项(子菜单项)。(2) 标题：显示在菜单、菜单项和子菜单项中的文字。使用连接符(&)指定一个带下划线的字符。(3) 位置/宏：对于第1级菜单，应该

38、是一个整数，代表菜单在菜单栏中的位置。对于第2级或第3级菜单项，应该是一个宏，当该菜单项被选择时执行相应的宏。如果第2级菜单项有一个或多个第3级菜单项，第2级菜单项可能没有一个宏与它相关联。(4) 分隔线：如果设置为真，将在菜单项或子菜单项前放置一个分隔线。(5) FaceID(图标号)：可选的。一个代码数字，代表显示在菜单项前内置的图形图像。获取代码数字可见上文所介绍的识别工具栏图像的内容。下图3显示了使用上面的表格所创建的自定义菜单。img 图3：一个自定义菜单的例子要在工作簿或者加载宏中使用这项技术，可以按照下面的步骤进行：(1) 打开前面下载的工作簿文件。该工作簿包含有VBA代码和一个

39、名为MenuSheet的工作表。(2) 将该工作簿中的所有代码复制到自已的VBA工程的模块中。(3) 将下面的子过程添加到ThisWorkbook对象模块中： Private Sub Workbook_Open()Call CreateMenuEnd SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean) Call DeleteMenuEnd Sub (4) 当工作簿打开时，执行Workbook_Open子过程，当工作簿关闭时，执行Workbook_BeforeClose子过程。(5) 插入一个新工作表并命名为MenuSheet。然后直接复

40、制menumakr.xls文件中的表格到MenuSheet工作表中。(6) 按自已的需要修改MenuSheet工作表中的表格。 下面的内容应用了前面所讲的技术在Excel 2007中创建自定义菜单，并为菜单项指定相应的宏，如图4所示。img 图4：在Excel 2007中自定义菜单示例只用于一个工作簿可以按下面的步骤在特定的Excel 2007工作簿中创建自定义菜单：在Excel 2007中打开该工作簿。在快速访问工具栏(QAT)中单击右键，选择“自定义快速访问工具栏”，弹出“Excel 选项”对话框。在对话框中的“从下列位置选择命令”下拉列表框中选择“宏”，然后在右侧的“自定义快速访问工具栏

41、”下拉列表框中选择“用于MyWorkbook.xlsm”。然后，在左侧的列表框中选择“WBDisplayPopUp”，单击“添加”按钮，再单击“确定”按钮。如果想修改所要显示的图标，可单击下方的“修改”按钮。img 图5：在“Excel选项”中添加自定义菜单(4) 此时，快速访问工具栏中新增了一个图标，点击该图标将弹出自定义菜单。能使用Ctrl+M组合键快速打开菜单，也能使用“宏”对话框(按Alt+F8键)修改快捷键。其实，在示例工作簿中隐藏着一个工作表，该工作表上存放着菜单项名称、所执行的宏名及图标号等。可以在任一工作表标签中单击右键，选择“取消隐藏”命令，或在“开始”功能区中选择“格式”下

42、的“隐藏/取消隐藏”中相应的命令来显示该工作表。该工作表如图6所示。 图6：存放菜单项名、宏名及图标号的MenuSheet工作表与前面所讲述的内容一样，该工作表中包含5列，分别为：(1)级别：指定的菜单项的级别，有效值是2和3。第2级别是菜单项，第3级别是子菜单项。(2) 标题：显示在菜单、菜单项和子菜单项中的文字。使用连接符(&)指定一个带下划线的字符。(3) 宏：对于第2级或第3级菜单项，应该是一个宏，当该菜单项被选择时执行相应的宏。如果第2级菜单项有一个或多个第3级菜单项，第2级菜单项可能没有一个宏与它相关联。可以按Alt+F11键进入VBE窗口，在宏模块中添加或修改宏。

43、(4) 分隔线：如果设置为真，将在菜单项或子菜单项前放置一个分隔线。(5) FaceID(图标号)：可选的。一个代码数字，代表显示在菜单项前内置的图形图像。获取代码数字可见上文所介绍的识别工具栏图像的内容，也可见下文的介绍。可以修改MenuSheet工作表中的内容，然后按“刷新菜单”按钮来改变菜单项。单击“隐藏菜单工作表”按钮将隐藏MenuSheet工作表。示例代码见示例工作簿。查找图标号的示例工作簿请点击此处下载(show faceids.xlsm)，在工作表的First ID和Last ID单元格框中输入起始和终止数字，单击“GO”按钮，在下方显示相应数量的图标，单击任一图标，名称框中将显

44、示其ID编号。- - - - - - - - - - - - - - - - - - - -用于所有工作簿如果想在所有工作簿中都能够使用指定宏，则可以将宏复制到Personal.xlsb中或者使用隐藏在XLStart文件夹下的xlsb工作簿。该文件夹中的每个文件都会在Excel开启时自动打开。另一种方法是创建带有宏的加载项。XLStart文件夹位于所安装的Office目录下，具体路径取决于您所安装的Office的位置。示例图片如上文图4所示。(1) 点此下载文件MyMacroFile.xlsb。(2) 复制该文件至XLStart文件夹中，然后打开Excel。(3) 在快速访问工具栏(QAT)中

45、右击，选择“自定义快速访问工具栏”，弹出如图7所示的对话框。在“从下列位置选择命令”下拉列表框中选择“宏”，“自定义快速访问工具栏”中选择“用于所有文档(默认)”。选择“DisplayPopUp”宏，按“添加”按钮，然后单击“确定”按钮。(当然，您也可以先单击“修改”按钮选择您喜欢的图标)img 图7：“Excel选项”对话框(4) 此时，快速访问工具栏中新增了一个图标，点击该图标将弹出自定义菜单。可以在“视图”功能区中单击“取消隐藏”命令来显示MenuSheet工作表。该工作表含有5列，与图6相同且其含义同上文所述。 膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀

46、蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀

47、蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈

48、螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿

49、莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿

50、葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇

51、蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈

52、蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿

53、薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀螀膆膀薂肆肂腿蚄袈羈膈螇蚁芆膇蒆袇膂芇蕿蚀肈芆蚁袅羄芅莁蚈袀芄薃袃艿芃蚅螆膅节螈羂肁芁蒇螄羇芁蕿羀袃莀蚂螃膁荿莁羈肇莈蒄螁羃莇蚆肆罿莆螈衿芈莅蒈蚂膄莅薀袈肀莄蚃蚀羆蒃莂袆袂蒂蒅虿膁蒁薇袄膆蒀蝿蚇肂葿葿羂羈葿薁螅芇蒈蚄羁膃蒇螆螄聿薆蒅罿羅膃薈螂袁膂蚀羇芀膁蒀