自定义工具栏按钮图标_VBA教程、excel 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 mandBars("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论坛”。

运行AddCustomButton过程，创建自定义工具栏，并设置工具栏按钮的图标，如图所示。

Snap1.jpg (1.38 KB)

2009-3-21 08:42-

-

【绝密】快速通过2010年中级会计职称！点击进入注会考试高分秘诀

注会如何一次过五门

会计职称考试高分秘诀

顶级名师带你轻松过会计职称

会计职称培训大优惠！

东奥会计培训大优惠！

我的奋斗历程－努力代表汗

勤奋+方法=两个半月通过6门

我的CPA考试攻略（12月20日更新）

2010年会计职称学习最新推出完美学习计划

张志凤给2010职称考生的实务学习指导

闫华红给2010年中级财管考生的预习指导

(责任编辑：admin)

多个文本框数据相加excel vba实现限制文本框的输入长度文本框的自动换行excel vba 代码如何将光标返回文本框中(excel vba

限制文本框的输入长度(excel vba) 设置文本框数据格式excel vba代码设置文本框数据格式excel vba代码文本框添加右键快捷菜单

------分隔线---------------------------- vba技术联盟推荐教程 Excel VBA基础入门 Excel VBA实战技巧精粹（附光盘）

中文版Excel 2007高级VBA编程宝典

Excel VBA从入门到精通（附CD-ROM）

Word VBA高效排版范例应用

Excel 应用大全

Excel实战技巧精粹（附光盘）

Excel数据处理与分析实战技巧精粹

Excel数据透视表应用大全

Excel 2007从入门到精通

数码单反摄影从入门到精通

如何开一家赚钱的专卖店

如何做好财务管理

财务ERP系统教程

如何掌控自己的时间和生活

李嘉诚如何理财

推荐内容设置文本框数据格式excel vba代码解释

文本框在用来输入数据时，除了限制输入的数据类型外，还可以设置文本框的数据格式，如...excel vba限制文本框的输入

用户在使用文本框输入数据时，往往希望能限制输入数据的类型，比如只能输入数字。但是...屏蔽所有的命令栏vba代码

在使用自定义的操作界面时，需要屏蔽Excel中所有的命令栏，可以使用下面的代码。复制...excel vba屏蔽工作表的复制功能详解