自定义工具栏按钮图标_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
excel从入门到精通百度云代码解析：
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屏蔽工作表的复制功能详解

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