自定义工具栏按钮图标_VBA教程、excel VBA编程、VBA视频、VBA控件,.doc

自定义工具栏按钮图标_VBA 教程、 excel VBA 编程、 VBA 视频、 VBA 控件, 21:06 来源: 未知作者:vba 技术联盟点击:161 次在创建自定义的工具栏时, 除了可以为工具栏按钮添加 Excel 内置的图标外,还能为工具栏按钮添加自定义的图标,如下面的代码所示。复制内容到剪贴板代码: #001Sub AddCustomButton() #002 Dim xBar mandBar #003 Dim xButton mandBarButton #004 On Error Resume 【绝密】快速通过 2010 年中级会计职称!点击进入在创建自定义的工具栏时, 除了可以为工具栏按钮添加 Exce l 内置的图标外, 还能为工具栏按钮添加自定义的图标, 如下面的代码所示。复制内容到剪贴板代码: #001 Sub AddCustomButton() #002 Dim xBar mandBar #003 Dim xButton mandBarButton #004 On Error Resume Next #005 mandBars("CustomBar").Delet e #006 Set xBar = ("CustomBar", msoBarTop) #007 Set xButton = (msoControlButton) #008 With xButton #009 .Picture = LoadPicture( & "\") #010 .Mask = LoadPicture( & "\") #011 .TooltipText = "Excel Home 论坛" #012 End With #013 = True #014 Set xBar = Nothing #015 Set xButton = Nothing #016 End Sub 代码解析: AddCustomButton 过程创建自定义工具栏,并设置工具栏的按钮自定义图标。第6、7 行代码, 使用 Add 方法在 Excel 窗口中添加自定义工具栏和按钮。请参阅技巧 89。第9 行代码,设置工具栏按钮的 Picture 属性为同一目录中的 图片。 mandBarButton 对象的 Picture 属性返回一个 IPictureDisp 对象,mandBarButton 对象的图像,语法如下: 参数是必需的,mandBarButton 对象。指定对象的 Picture 属性就能设置对象的图像第 10 行代码,设置工具栏按钮的 Mask 属性为同一目录中的 图片。为了使工具栏按钮图标透明显示,在指定对象的 Picture 属性后,还需要指定对象的 Mask 属性。 mandBarButton 对象的 Mas k 属性返回表 mandBarButto n 对象的屏蔽图像的 IPictureDisp 对象,语法如下: 参数是必需的,mandBarButton 对象。屏蔽图像决定按钮图像透明的部分。在创建