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

Sub myCbarCnt ()
Dim myCbarCnt As CommandBa rControl With
Sheet1.Sh apes.AddS hape(17, 1000, 1000,30, 30)
.Fill.For eColor.Sc hemeColor = 29
.CopyPict ure
.Delete
End With
Set myCbarCnt =
Applicati man dBars("St andard"). Controls( 1)
myCbarCnt .PasteFac e
Set myCbarCnt = Nothing
End Sub
Sub DelmyCbar Cnt() Applicati man dBars("St andard"). Controls( 1).Reset
End Sub 代码解析：myCbarC nt过程改变系统菜单的“新建”按钮的图标。

第3行代码使用Shape对象的AddShape 方法在工作表中新建一个自选图形。

应用于Shape对象的AddShape 方法请参阅技巧53。

将新建图形的Left参数和Top参数设置为较大的数值使新建的自选图形不在当前窗口的可视区域内。

第4行代码设置新建自选图形的颜色。

第5行代码使用CopyPictu re方法将新建自选图形作为图片复制到剪贴板。

CopyPictu re方法的语法如下：expressio n.CopyPic ture(Appe arance, Format)
参数expressio n是必需的，一个有效的对象。

参数Appearan ce是可选的，指定图片的复制方式。

参数Format是可选的，图片的格式。

使用Delete方法删除新建的自选图形。

第8行代码使用Set语句将系统菜单的“新建”按钮赋给变量myCbarC nt。

第9行代码PasteFace 方法将新建的自选图形粘贴到“新建”按钮中。

PasteFace 方法将“剪贴板”的内容粘贴到指定命令栏按钮控件上，语法如下：expressio n.PasteFa ce
参数expressio n是必需的，返回一个Command BarButton 对象。

DelmyCba rCnt过程使用Reset 方法恢复“新建”按钮的默认图标。

myCbarC
nt过程结
果如图
84‑1所示
图 84‑1变“新建”按钮的图标。