自定义工具栏按钮图标_VBA教程、excel VBA编程、VBA视频、VBA控件,VBA应用教程,vba技巧.docVIP

自定义工具栏按钮图标_VBA教程、excel VBA编程、VBA视频、VBA控件,VBA应用教程,vba技巧 自定义工具栏按钮图标_VBA教程、excel VBA编程、VBA视频、VBA控件,VBA应用教程,vba技巧自定义工具栏按钮图标时间:2009-07-11 21:06来源:未知 作者:vba技术联盟 点击:161次 在创建自定义的工具栏时，除了可以为工具栏按钮添加Excel内置的图标外，还能为工具栏按钮添加自定义的图标，如下面的代码所示。 复制内容到剪贴板 代码: #001Sub AddCustomButton() #002 Dim xBar As CommandBar #003 Dim xButton As CommandBarButton #004 On Error Resume 【绝密】 快速通过2010年中级会计职称！点击进入 在创建自定义的工具栏时，除了可以为工具栏按钮添加Excel内置的图标外，还能为工具栏按钮添加自定义的图标，如下面的代码所示。 复制内容到剪贴板 代码: #001 Sub AddCustomButton() #002 Dim xBar As CommandBar #003 Dim xButton As CommandBarButton #004 On Error Resume Next #005 Application.CommandBars(CustomBar).Delete #006 Set xBar = CommandBars.Add(CustomBar, msoBarTop) #007 Set xButton = xBar.Controls.Add(msoControlButton) #008 With xButton #009 .Picture = LoadPicture(ThisWorkbook.Path \P.BMP) #010 .Mask = LoadPicture(ThisWorkbook.Path \M.BMP) #011 .TooltipText = Excel Home 论坛 #012 End With #013 xBar.Visible = True #014 Set xBar = Nothing #015 Set xButton = Nothing #016 End Sub 代码解析： AddCustomButton过程创建自定义工具栏，并设置工具栏的按钮自定义图标。 第6、7行代码，使用Add方法在Excel窗口中添加自定义工具栏和按钮。请参阅技巧89 。 第9行代码，设置工具栏按钮的Picture属性为同一目录中的p.bmp图片。 应用于CommandBarButton 对象的Picture属性返回一个IPictureDisp对象，表示 CommandBarButton对象的图像，语法如下： expression.Picture 参数是必需的，返回一个CommandBarButton对象。 指定对象的Picture属性就能设置对象的图像 第10行代码，设置工具栏按钮的Mask属性为同一目录中的m.bmp图片。 为了使工具栏按钮图标透明显示，在指定对象的Picture属性后，还需要指定对象的Mask属性。 应用于CommandBarButton 对象的Mask属性返回表示CommandBarButton对象的屏蔽图像的IPictureDisp对象，语法如下： expression.Mask 参数是必需的，返回一个CommandBarButton对象。 屏蔽图像决定按钮图像透明的部分。在创建作为屏蔽图像使用的图像时，所有要透明的区域应该为白色，所有要显示的区域应该为黑色。 第11行代码，设置按钮的“屏幕提示”为“ExcelHome论坛”。 运行AddCustomB