VBA常用技巧代码解析

yuanzhuping

技巧84         改变菜单按钮图标
       利用VBA可以改变系统菜单的默认图标，使之达到自定义按钮图标的效果，如下面的代码所示。

1. #001  Sub myCbarCnt()
   
2. #002      Dim myCbarCnt As CommandBarControl
   
3. #003      With Sheet1.Shapes.AddShape(17, 1000, 1000, 30, 30)
   
4. #004          .Fill.ForeColor.SchemeColor = 29
   
5. #005          .CopyPicture
   
6. #006          .Delete
   
7. #007      End With
   
8. #008      Set myCbarCnt = Application.CommandBars("Standard").Controls(1)
   
9. #009      myCbarCnt.PasteFace
   
10. #010      Set myCbarCnt = Nothing
    
11. #011  End Sub
    
12. #012  Sub DelmyCbarCnt()
    
13. #013      Application.CommandBars("Standard").Controls(1).Reset
    
14. #014  End Sub

复制代码

代码解析：
       myCbarCnt过程改变系统菜单的“新建”按钮的图标。
       第3行代码使用Shape对象的AddShape方法在工作表中新建一个自选图形。应用于Shape对象的AddShape方法请参阅技巧53 。
       在本例中将新建图形的Left参数和Top参数设置为较大的数值使新建的自选图形不在当前窗口的可视区域内。
       第4行代码设置新建自选图形的颜色。
       第5行代码使用CopyPicture方法将新建自选图形作为图片复制到剪贴板。CopyPicture方法的语法如下：
expression.CopyPicture(Appearance, Format)
       参数expression是必需的，一个有效的对象。
       参数Appearance是可选的，指定图片的复制方式。
       参数Format是可选的，图片的格式。
       第6行代码使用Delete方法删除新建的自选图形。
       第8行代码使用Set语句将系统菜单的“新建”按钮赋给变量myCbarCnt。
       第9行代码PasteFace方法将新建的自选图形粘贴到“新建”按钮中。PasteFace方法将“剪贴板”的内容粘贴到指定命令栏按钮控件上，语法如下：
expression.PasteFace
       参数expression是必需的，返回一个CommandBarButton对象。
       DelmyCbarCnt过程使用Reset方法恢复“新建”按钮的默认图标。
       运行myCbarCnt过程结果如图所示。

liusongs

感谢楼主，版主无私奉献!!!!!!!!!!!!!!!!!!!!
慢慢学习.

fhucpdc

真是好帖,不好好学习,简直愧对EXCLEHOME!

zhenghua9256

多谢分享

zhenghua9256

每天有事没事总爱进来看一下

walker160

楼主做了件大好事啊，不顶不行！

xajhq

感谢club.excelhome.net 感谢众位的辛勤努力!

chury11

谢谢楼主谢谢楼主

yuanzhuping

技巧85         右键快捷菜单增加菜单项
       在Excel的右键快捷菜单中可以添加新的菜单项，如下面的代码所示。

1. #001  Sub MyCmb()
   
2. #002      Dim MyCmb As CommandBarButton
   
3. #003      With Application.CommandBars("Cell")
   
4. #004          .Reset
   
5. #005          Set MyCmb = .Controls.Add(Type:=msoControlButton, _
   
6. #006              ID:=2521, Before:=.Controls.Count, Temporary:=True)
   
7. #007              MyCmb.BeginGroup = True
   
8. #008          End With
   
9. #009      Set MyCmb = Nothing
   
10. #010  End Sub

复制代码

代码解析：
       MyCmb过程使用Add方法在Excel的右键快捷菜单中添加内置的“打印”菜单项。
       在使用Add方法添加菜单项时将Id参数设置为2521，添加的就是内置的“打印”菜单项。将Before属性设置成右键快捷菜单中最后一个控件的值，使“打印”菜单项添加到右键快捷菜单中最后一个控件之前。将Temporary参数设置成True，在关闭应用程序时从右键快捷菜单中删除“打印”菜单项。
       运行MyCmb过程，将在Excel右键快捷菜单中添加 “打印”菜单项，如图所示。

liechun1983

VBA又进步了