自定义工具栏按钮图标 vba教程、excel vba编程、v..doc

自定义工具栏按钮图标_vba教程、excel vba编程、v.自定义工具栏按钮图标_VBA教程、excelVBA编程、VBA视频、VBA控件,VBA应用教程,vba技巧自定义工具栏按钮图标时间:2009-07-1121:06来源:未知作者:vba技术联盟点击:161次在创建自定义的工具栏时,除了可以为工具栏按钮添加Excel内置的图标外,还能为工具栏按钮添加自定义的图标,如下面的代码所示。复制内容到剪贴板代码:#001SubAddCustomButton(#mandBar#mandBarButton#004OnErrorResume【绝密】快速通过2010年中级会计职称!点击进入在创建自定义的工具栏时,除了可以为工具栏按钮添加Excel内置的图标外,还能为工具栏按钮添加自定义的图标,如下面的代码所示。复制内容到剪贴板代码:#001SubAddCustomButton(#mandBar#mandBarButton#004OnErrorResumeNext#mandBars("CustomBar".Delete#("CustomBar",msoBarTop#007SetxButton=(msoControlButton#008WithxButton#=LoadPicture(&"\"#=LoadPicture(&"\"#="ExcelHome论坛"#012EndWith#=True#014SetxBar=Nothing#015SetxButton=Nothing#016EndSub代码解析:AddCustomButton过程创建自定义工具栏,并设置工具栏的按钮自定义图标。第6、7行代码,使用Add方法在Excel窗口中添加自定义工具栏和按钮。请参阅技巧89。第9行代码,。mandBarButton对象的Picture属性返回一个IPictureDisp对象,mandBarButton对象的图像,语法如下:,mandBarButton对象。指定对象的Picture属性就能设置对象的图像第10行代码,。为了使工具栏按钮图标透明显示,在指定对象的Picture属性后,还需要指定对象的Mask属性。mandBarButton对象的屏蔽图像的IPictureDisp对象,语法如下:,mandBarButton对象。屏蔽图像决定按钮图像透明的部分。在创建作为屏蔽图像使用的图像时,所有要透明的区域应该为白色,所有要显示的区域应该为黑色。第11行代码,设置按钮的“屏幕提示”为“ExcelHome论坛”。运行AddCustomButton过程,创建自定义工具栏,并设置工具栏按钮的图标,如图所示。(-3-2108:42--【绝密】快速通过2010年中级会计职称!点击进入注会考试高分秘诀注会如何一次过五门会计职称考试高分秘诀顶级名师带你轻松过会计职称会计职