说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Office工具栏的问题,请高手进来,低手不要进来,一定结帐

编辑:说三道四文库 发布时间:2017-11-20 12:22
HTML文档下载 WORD文档下载 PDF文档下载
本人最近装了一个金山词霸2002,安装后它在WORD中添加了自己的图标按纽,不过这个按纽是加在WORD的常用工具栏中的,而不是做成一个模板放在启动中的。请问各位大侠,这是怎么做的。另外,IE中也加了一个金山的按纽,请问这是怎么实现的。
使用office中的commandbar对象,比如在word中打开VB脚本编辑器,可以看到引用中的ms office 9.0 object library.
我不是很明白,请详细说明好吗?
大家帮帮忙好吗?
没有人会吗?
MSDN上搜索:
COM Add-ins: Part I
COM Add-ins: Part II
Dim hDC As Long, hBitmap As Long
    Dim lWindow As Long
    Dim sPath As String
    
    Dim cstarBar As CommandBar
    Dim setButton As CommandBarButton

    ' 添加工具栏
    Set cstarBar = CommandBars.Add(g_toolbarName)
    
    ' 添加"设置"按钮到工具栏
    Set setButton = cstarBar.Controls.Add(msoControlButton)

    With setButton
        .Caption = g_toolbarTitle
        .Style = Office.msoButtonIcon
        .TooltipText = g_toolbarText
        .Visible = True
        .OnAction = "cstar_ppa_setform"
        .FaceId = 31
    End With
    
    ' 加载自定义按钮图像
    sPath = g_strPath
    
        
    If sPath <> "" Then
        
        lWindow = GetForegroundWindow()
        hBitmap = LoadImage(0, sPath + "\tbSet.bmp", IMAGE_BITMAP, 32, 32, LR_LOADFROMFILE)
        
        If hBitmap <> 0 Then
        
            OpenClipboard lWindow   '打开剪贴板
            EmptyClipboard          '清空剪贴板
            SetClipboardData CF_BITMAP, hBitmap '将位图复制到剪贴板
            CloseClipboard          '关闭剪贴板
            
            setButton.PasteFace     '粘贴剪贴板内容到按钮
            
            OpenClipboard lWindow   '打开剪贴板
            EmptyClipboard          '清空剪贴板
            CloseClipboard          '关闭剪贴板
            
        End If
        
    End If

以上是在 PowerPoint中的实现代码 Word与之类似 

我已经回答过了!
【微信讲师面对面】你在企业服务号开发中遇到的坑和难点 五个解决方案让MongoDB拥有RDBMS的鲁棒性事务 浅谈Apache Spark的6个发光点 安卓 “假ID” 签名漏洞,竟然骗过了支付宝和360 从Social到Big Data,移动App蚂蜂窝转型推新品 《近匠》nice曹大鹏,从男装导购到潮人社区的心路历程 DevOps扼杀的不是开发者,而是开发生产力! 利用Docker构建开发环境 Netflix公布Cassandra新性能:基于AWS的百万次写入每秒 一周消息树:谷歌Android遭遇“颠覆”危机 微软发布新应用Snipp3t,iOS平台首发且无Windows Phone版 TOP10优秀微信开发商随后揭晓 2014微信开发者大会开幕在即 8月12日:PC鼻祖IBM 5150迎来33周年 平板创作3D展现:蒙特利尔大学发明Hyve-3D设计系统 Quick Charge技术解析:关于手机快速充电的那些事儿 性能分析十八招,你用哪一招? 流程在企业内的作用及成熟度 Gartner:至2017年Chromebook销量将增2倍 后稀缺时代思考:机器横行下的人类夹缝求生 TIOBE 2014年8月编程语言排行榜:Swift跌出Top 20 精华回顾!历届MDCC大会精彩演讲与议程汇总 《近匠》Fancy3D:亿级游戏背后的轻量级引擎 假如李小龙是程序员…… Docker已扎根新一代PaaS 三星或发布首款头戴式VR设备Project Moonlight 英特尔亚太研发总经理何京翔:数据化时代背后的智慧 云络网络科技CEO Steve Mushero:游戏行业的云运维 腾讯游戏运营管理中心总监刘栖铜:腾讯游戏云的理想与实践 一号专车产品总监曹景辉:LBS应用仍有无限的创新空间 昆仑游戏总裁张益豪:做好中国游戏的海外代理 游族首席运营官陈礼标:重点打造全球化IP 关于在datagrid中超链结和 pager问题,有耐心和热心的人请帮我看看 我是学php的. 大家来讨论一下C# 和Java ,回贴均有分!! DB2的自增型变量怎么设?? 我是学php的. 谁可以讲解一下telnet的工作原理????? 狂人语录 那有BOCHS的中文帮助 在server2003操作系统下使用sql server2000 的问题 各位大侠 请问如何在C/s 下Windows程序中 找一个控件 100分 朋友! 关于英文版VC6的问题 请大师指点ASP中unicode to ansi 的问题 richtext中RtfText的内容如何编辑?200分,解决问题另外奉送! 即将前往恒生面试,大家帮我看看需要准备什么. 那有BOCHS的中文帮助 phoenix7789请回答!!!^_^ 我在装Report Machine控件时,Delphi提示我找不到RXGIF.duc,谁在给我一个? 肤色检测的问题,急!!! 如何对asp.net的程序进行加密 用datagrid问题,总是提示列键信息不足或不正确,更新影响多行, 大家来讨论一下C# 和Java ,回贴均有分!! 请问一个sql语句写法问题,100分!!!在线等待 谁能给我一点写网站制作方面投标书或者详细方案 wsad5 怎么连上ORACLE数据库啊 并非复古——关于微内核模式ASP开发框架的讨论,欢迎高手进入! 那有BOCHS的中文帮助 我愿送500分求解JAVA问题!!!!!! 关于frame里面的参数传递问题,火急 find函数的问题,请各位老兄帮忙 请问这个链接怎么写? 用xsl将xml转成html提示.... 为什么看不到邻近计算机? 关于浏览器的自定义工具栏! 无法打开web项目bbs 请告知可以下载Domino数据库安装文件和Lotus Notes的网址!在线等 我的ie6无法加载applet,请教解决方法! 如何用ASP写关闭当前窗体的代码? 用xsl将xml转成html提示.... sqlserver数据库怎么和应用程序一起打包? 一个困惑的问题,高手和有耐心的人请进! 实现要求是:对一个用来保存文件的richtext域如何创建一个代理,以实现每天固定一个时间从服务器/本地的一个固定目录下获取一个更新的文 关于数据库导入导出的问题 请问:提交表单后,把参数传到一个新弹出的页面,要求此页面没有“标准按钮”“工具栏”“地址栏”而且固定窗口大小,且不能最大化,如何 求助于高手:Tab Control控件如何使用? 组件通过鼠标移动 求助 sniffer 紧急!帮忙啊!如何获得使用<div class="test" id="mydiv"> ...</div>定义的对象 哪儿找ORACLE8i 9i for x86solaris? 在IIS中,url转发如何隐藏真实地址? 原来对应Access数据库的水晶报表现在如何转换成对应sql server 的?Access数据库已经转换成Sql server的 如何写三年大变样的征文 Story of the Year的《I'm Alive》 歌词 请问手机接打电话时听到对方的声音很小很小是怎么回事?请问各位好心人,我的手机是山寨版的,最近掉水一次,修好了用了一段时间,现在突然接打电话听到对方的声音很小很小,我已经将间音 Story Of The Year的《Wake Up》 歌词 邯郸三年大变样的作文应该怎么写?不少于1000字, 与其…不如,用英语怎么说 简述“刘备跃马过檀溪”的故事情节(100字内) 刘皇叔跃马过檀溪可以看出刘备有怎样的品质 要是刘备不威胁蔡氏有刘皇叔跃马过檀溪这个故事吗?要是刘备不拥护刘琦、不建议刘表削去蔡氏的羽翼会有刘皇叔跃马过檀溪这个故事吗? 跃马过檀溪中的檀溪指的是哪个河 把握住址的士气温业务实行为了解决定期 澳洲山火祸起军演白宫网页万人请愿辱华节目被删除美试图阻挠土购红旗9阿拉法特死因有新说 排除钋中毒BBC名主播再添性侵罪名 下月受审\"行贿门\"致葛兰素史克第三季度在辽宁舰今年第四次出海 专家称为在冬季西非经货联盟首脑会议在达喀尔开幕潘基文呼吁世界各国与联合国共同应对全黎巴嫩总理宣布立即采取措施制止北部教伦敦股市股指24日上涨团山东省十三届二次全委(扩大)会议召广铁职院2600名春运志愿者节前上岗回家的幸福十番棋鏖战求“名局”2013年我国开展政府补贴性职业培训成都去年查处县处级官员46人日中友协谴责拜鬼恶行 市民团体拟起诉济南铁路局上海动车队推出敬老服务图片新闻当官不宜成常态美国2014年亚太外交忙乱开局
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘