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 https://www.doczj.com/doc/226282735.html,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屏蔽工作表的复制功能详解
有时我们并不希望用户对工作表中的数据进行复制粘贴操作，此时可以把所有的复制功能都...Shape（图形在工作表中添加艺术字
在工作表中插入艺术字，可以使用AddTextEffect方法，如下面的代码所示。 复制内容到剪...Wordbook（工作簿）对象保存指定工作表为工作
如果需要将工作簿中的工作表单独保存为一个工作簿文件，可以使用Worksheet对象的Copy...vba技术联盟推荐教程 Ex
cel
VBA基础入门
Excel VBA实战技巧精粹（附光盘）
中文版Excel 2007高级VBA编程宝典
Excel VBA从入门到精通（附CD-ROM）
Word VBA高效排版范例应用
Excel 应用大全
Excel实战技巧精粹（附光盘）
Excel数据处理与分析实战技巧精粹
Excel数据透视表应用大全
Excel 2007从入门到精通
热点内容 多个文本框数据相加excel vba实 设置文本框数据格式excel vba代 文本框添加右键快捷菜单 文本框的自动换行excel vba代码
Wordbook（工作簿）对象禁用宏则 excel vba限制文本框的输入 Excel vba使用ActiveWorkbook详
Shape（图形）、Chart（图表）对 Wordbook（工作簿）对象不打开工 excel vba使用InputBox方法详解 VBA控件教程
vba语句
VBA错误代码详解
VBA代码注释大全
常用表格下载
VBA常用技巧解析
VB在线帮助
EXCEL视频
vba视频
Excel函数
EXcel入门
Excel技巧
Excel2007教程
WORD-VBA
Word模板下载
Access使用技巧
Outlook
人才招聘
电影大片欣赏
商城
Powered by VBAcn © 2008-2009 vbacn Inc.
9V:Repeat code is not allowed!
vba技术联盟,站长信箱:oman1825@https://www.doczj.com/doc/226282735.html,
粤ICP备09034514号
Close
CloseClose
Close
CloseClose