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

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

编辑:说三道四文库 发布时间:2018-01-19 01:57
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与之类似 

我已经回答过了!
iOS 7的新设计并非止于外表 WWDC 2013大会10大启示:正向开发者支付大量现金 云计算大会微软专场成功举办 Windows Azure公众预览版上线 IBM全球大裁员 在美国裁员已经开始 动动鼠标,决定“中国十大优秀开源项目”的归属 多哥应用如何共享公共文档? 前辈多指教:新手的几个简单问题集(2) 关于查询通配符的问题 截获视频采集卡的内容进行存储 asp使用oracle存储过程问题!!!急!!! http://218.56.11.178:8009这个地方为何不能留言 cisco 2950交换机系统被格式化后的问题,急...... c/s 是两层应用体系,那么B/S是多少层呢? 关于ado的字符串的问题? 5.如图,等边三角形内有一个等腰三角形,并且 如图,等边三角形中有一个等腰三角形,并且角一等于角 等边三角形内有一个等腰三角形,并且角1等于角2,角 等边三角形内有一等腰三角形,并且1=2 3=4,求 有一个三角形,它的三个内角的度数比是7:3:10, 一个直角三角形ABC,其中B=90度,A的度数是C 在直角三角形ABC中,角C=90度,角A比角B的2 三角形的三个角的度数是180度或360度? 角1=60度 如果2角3=3角1,求角2,角3,角 美国务卿克里访问埃及 承诺美将与埃过伊朗最高领袖称美是微笑的敌人 对核谈美研发新型间谍机 可一小时内到达全球泰国芭堤雅发生游船沉没事故 造成中国如何确保机密数据安全?把密码藏在潜意世界上十大武器:士兵听了直接吓瘫!全世界都震惊了,70亿美元建造的航母漂亮!中国海军将赴关岛巡航 舰船已行端木财经:自我提升 股市与操作心态美军再闯岛礁:给中国送来一份天大的礼血色的月光平凡的明穿日子魔王的都市法则恶魔王棋校花收藏家夜郎谷旅游雪帽山旅游义帝陵旅游爱莲湖旅游武夷山国家森林公园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘