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

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

编辑:说三道四文库 发布时间:2017-09-26 06:30
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与之类似 

我已经回答过了!
[探讨]响应式设计四大原则 Linux Kernel 3.8发布 停止支持386设备 HTML5手机游戏引擎Devkit开源 程序员的一天:台湾个人移动游戏开发者 极限破解:利用低温环境读取Android加密数据 五种工具保护你的在线隐私 从打压到支持 微软与GitHub的爱恨情仇 “夫妻档”初创公司百万美元打造实时Hadoop系统 编程从娃娃抓起:13岁儿童的移动游戏之梦 新浪管理层调整 许良杰任CTO兼联席总裁 Java,你还会让多少人继续“受伤”? 中国或超美国 成全球智能设备市场霸主 告别手写 API文档生成工具推荐 微软Azure超越亚马逊云计算的性能测试 苹果创新已经被三星超越 不靠广告也盈利:移动应用掘金7大案例剖析 谈Clash of Clans货币化的成功 UX设计师应当规避的七大问题 初创公司Citus Data将CitusDB扩展到Hadoop 移动医疗:巢儿孵化器为何笃信是创业金矿? 一个新的雅虎:雅虎主页改版 谷歌发布Google Glass最新视频 公开接受预定 微软Windows Blue结束半程开发 或今年8月推出 JavaFX即将开源,支持iOS与Android开发 趣味编程网Codecademy携手Twitter、Evernote、Box等推出系列API教程 开发者,别让任何人绑架你的工作节奏 REST Style来袭 LinkedIn开源Rest.li框架 [探讨] 是用jQuery框架还是自造车轮呢? 一周消息树:Java 你还会让多少人继续“受伤”? Chromebook Pixel,揭开谷歌云世界的大幕 惠普:第一财季净利12亿 同比仍在下滑 关于速达财务的问题 怎么样改变一个控件的颜色? 在VC里用STL的话,如何实现类的序列化..如果不用STL呢 去除字符 我打开帖子后,显示的字体是楷体,看不清楚,请问是怎么回事,怎么改过来? 技术难题,希望大家帮忙解决,谢谢。 c加上API编程 遇到的问题??? 在mainfram中增加了一个dialog(CG_IDD_SEARCH),对应变量 m_Search 我不知道这是什么错误? 请问C#中如何截取字符串最左边n位? 在插件的dll中生成activeX控件,但我在创建控件的时候出错! 为何我在一个程序中使用Dim tbs As Connection,可以使用tbs.Open,在另一程序中 谁能给B/S和C/S结构下一个清晰的定义?? 请大家从深层次谈谈“非典”对软件公司的各方面影响。 我该怎么办?有道理的给分。 晕了,安装MS SQL SERVER2000的时候,界面停在MSDTC就不动了,怎么回事情? 有谁用过adobe的生成pdf文件的java package???? 如何往串口的发送脚送出一个持续10ms的低电平? IIS6中文件上传程序为何只能传小于200K的文件? 在win中删除了桌面快捷方式,怎么恢复??求助! 大虾们图书管理系统中图书与管理员表到底要不要建关系 请教模糊查询,!!!!! 怎么样用asp实现阴历的查询??? 请高手赐教!! 大家帮忙:为什么我在调试程序时不能跟踪进入VCL的方法代码? JSP调用session的问题? ....同一用户不能同时在线两次的完整解决方法......在线等 批量数据提交 cqzyf 接分 1 问个VC6.0里面的1个小问题! 怎样使一个按钮成为默认按钮? 小问题,高分请教用滑动条制作的调色板问题。 在Asp怎样连接Access数据库? 跳线 高分求DELPHI4.0中的哪个做安装程序的工具,只要这个版本的! 难道是Delphi6的Bug吗?还望遇到过这样问题的大哥多多指教! 怎样实现要最新的信息? 一个疑惑的问题? 此觸發器該如何寫 关于数据库更新的问题!帮帮忙,50分就是你的啦! easy问题送大分,DLL中的资源,马上结贴 菜鸟刚学vc.net,新建了一个dialog based,只有一个窗体,我在窗体上放一个按钮,这就是我的程序了,运行之后生成了可执行文件,我把他拷 不明白交换机的网管功能? 请问:如何将richtextbox中显示的内容转换成图像信息?(急) 请各位同志帮我看看这段程序: 谢谢! 没有免费的午餐.各位求救.dbf文件损坏,如何修复(没有带.cdx文件) 在线等!急急急!!! 请大家帮忙 急需解决!!!!! 一个简单的问题,请帮忙 请教!如何用非模式对话框实现面板? 请问高手,这样是否可行? 是不是真的要我去当内裤了呀~~~~~~~~~~~~~在线等待!~!~!~! 出差期间行房受伤澳公务员求偿未果印度客车事故至少44人亡澳国防部称愿“将功赎罪”“甲壳虫”主唱故居获拍77万美国男子手机“防弹护主”美情报高官供出欧洲盟友美国拒绝回应“在北京、上海等地设监听津巴布韦灵车撞上油罐车至24人死亡 联合国发言人说美国已保证不会对联合国外媒曝美国安局秘密窃取雅虎和谷歌数据墨西哥警察路边与女子发生性关系视频网解放军三大舰队在西太平洋完成三轮实兵孕妇就医多次碰壁 医生:医患关系紧张美国拒绝回应“在北京、上海等地设监听乡镇卫生院腐败高发 卫生院长称不收回富阳法院首推分段倒逼执行机制对付“老新加坡画家上海展示新奇“手机画”外媒对中共三中全会怎么看?问题越来越多 咨询越来越少 自杀干预温州多家典当行集体看走眼 假首饰“骗海上丝绸之路:周边外交的动脉与桥梁习近平会见巴布亚新几内亚总督收买人10月底前投案免刑责即时录音卖房人去世 合同还能履行吗?首批服务高校中联国际拍卖中心有限公司拍卖公告“名校办的民校”扎堆开张学一学,该怎么坐?学者建议部分党规 可设定“有效期”赛赛哪家新加坡选战拉开帷幕核心复出 女排要打硬仗逃亡中高调派对 重操旧业露踪迹跌豪车降价抵到“烂”缺热门车型提车难压力过大 女篮惨遭绝杀保本基金规模 领衔震荡市A股公司赚钱能力好于去年6个月之后母乳就没营养了吗?众筹入股知名老店买违建小产权房加入学积分北极争夺战:美要与俄“赛船”
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘