自定义工具栏按钮图标_vba教程、excel vba编程、vba视频、vba控件,

自定义工具栏按钮图标_vba教程、excel vba编程、vba视频、vba控件,

ID:6610010

大小:30.50 KB

页数:7页

时间:2018-01-20

自定义工具栏按钮图标_vba教程、excel vba编程、vba视频、vba控件,_第1页
自定义工具栏按钮图标_vba教程、excel vba编程、vba视频、vba控件,_第2页
自定义工具栏按钮图标_vba教程、excel vba编程、vba视频、vba控件,_第3页
自定义工具栏按钮图标_vba教程、excel vba编程、vba视频、vba控件,_第4页
自定义工具栏按钮图标_vba教程、excel vba编程、vba视频、vba控件,_第5页
资源描述:

《自定义工具栏按钮图标_vba教程、excel vba编程、vba视频、vba控件,》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、自定义工具栏按钮图标_VBA教程、excelVBA编程、VBA视频、VBA控件,21:06来源:未知作者:vba技术联盟点击:161次在创建自定义的工具栏时,除了可以为工具栏按钮添加Excel内置的图标外,还能为工具栏按钮添加自定义的图标,如下面的代码所示。复制内容到剪贴板代码:#001SubAddCustomButton()#002DimxBarAsCommandBar#003DimxButtonAsCommandBarButton#004OnErrorResume【绝密】快速通过2010年中级会计职称!点击进入在创建自定义的工具栏时,除了可以为工具栏按钮添加Excel内

2、置的图标外,还能为工具栏按钮添加自定义的图标,如下面的代码所示。复制内容到剪贴板代码:#001SubAddCustomButton()#002DimxBarAsCommandBar#003DimxButtonAsCommandBarButton#004OnErrorResumeNext#005Application.CommandBars("CustomBar").Delete#006SetxBar=CommandBars.Add("CustomBar",msoBarTop)#007SetxButton=xBar.Controls.Add(msoControlButton)

3、#008WithxButton#009.Picture=LoadPicture(ThisWorkbook.Path&"P.BMP")#010.Mask=LoadPicture(ThisWorkbook.Path&"M.BMP")#011.TooltipText="ExcelHome论坛"#012EndWith#013xBar.Visible=True#014SetxBar=Nothing#015SetxButton=Nothing#016EndSub代码解析:AddCustomButton过程创建自定义工具栏,并设置工具栏的按钮自定义图标。第6、7行代码,使用Add方法

4、在Excel窗口中添加自定义工具栏和按钮。请参阅技巧89。第9行代码,设置工具栏按钮的Picture属性为同一目录中的p.bmp图片。应用于CommandBarButton对象的Picture属性返回一个IPictureDisp对象,表示CommandBarButton对象的图像,语法如下:expression.Picture参数是必需的,返回一个CommandBarButton对象。指定对象的Picture属性就能设置对象的图像第10行代码,设置工具栏按钮的Mask属性为同一目录中的m.bmp图片。为了使工具栏按钮图标透明显示,在指定对象的Picture属性后,还需要指定

5、对象的Mask属性。应用于CommandBarButton对象的Mask属性返回表示CommandBarButton对象的屏蔽图像的IPictureDisp对象,语法如下:expression.Mask参数是必需的,返回一个CommandBarButton对象。屏蔽图像决定按钮图像透明的部分。在创建作为屏蔽图像使用的图像时,所有要透明的区域应该为白色,所有要显示的区域应该为黑色。第11行代码,设置按钮的“屏幕提示”为“ExcelHome论坛”。运行AddCustomButton过程,创建自定义工具栏,并设置工具栏按钮的图标,如图所示。Snap1.jpg(1.38KB)200

6、9-3-2108:42--【绝密】快速通过2010年中级会计职称!点击进入注会考试高分秘诀注会如何一次过五门会计职称考试高分秘诀顶级名师带你轻松过会计职称会计职称培训大优惠!东奥会计培训大优惠!我的奋斗历程-努力代表汗勤奋+方法=两个半月通过6门我的CPA考试攻略(12月20日更新)2010年会计职称学习最新推出完美学习计划张志凤给2010职称考生的实务学习指导闫华红给2010年中级财管考生的预习指导(责任编辑:admin)多个文本框数据相加excelvba实现限制文本框的输入长度文本框的自动换行excelvba代码如何将光标返回文本框中(excelvba限制文本框的输入长

7、度(excelvba)设置文本框数据格式excelvba代码设置文本框数据格式excelvba代码文本框添加右键快捷菜单------分隔线----------------------------vba技术联盟推荐教程ExcelVBA基础入门ExcelVBA实战技巧精粹(附光盘)中文版Excel2007高级VBA编程宝典ExcelVBA从入门到精通(附CD-ROM)WordVBA高效排版范例应用Excel应用大全Excel实战技巧精粹(附光盘)Excel数据处理与分析实战技巧精粹Excel数据透视表应用大全Excel

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。