自定义工具栏按钮图标_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论坛”。
运行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（图形在工作表中添加艺术字vba编程技巧
在工作表中插入艺术字，可以使用AddTextEffect方法，如下面的代码所示。 复制内容到剪...Wordbook（工作簿）对象保存指定工作表为
工作
如果需要将工作簿中的工作表单独保存为一个工作簿文件，可以使用Worksheet对象的vba技术联盟推荐教程 Excel
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@163
粤ICP备09034514号
Close
CloseClose
Close
CloseClose

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。