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

2003-03-14 09:23:24 105 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

别再只会用555了！手把手教你用运放和RC电路搭一个50Hz正弦波信号源（附Multisim仿真文件）本文详细介绍了如何使用运放LM358和RC电路搭建一个精准的50Hz正弦波信号源，涵盖文氏电桥核心原理、单电源供电解决方案、Multisim仿真及实物调试技巧。通过实战指南和优化建议，帮助电子爱好者快速掌握低频信号生成技术，适用于各种测试和校准场景。阅读详情

本人最近装了一个金山词霸2002，安装后它在WORD中添加了自己的图标按纽，不过这个按纽是加在WORD的常用工具栏中的，而不是做成一个模板放在启动中的。请问各位大侠，这是怎么做的。另外，IE中也加了一个金山的按纽，请问这是怎么实现的。

...全文

SAP ABAP VL09 BAPI VL 216 ls_batch_item-fact_unit_denom = ls_lips_split-umvkn. "销售数量转换为 SKU 的值（分母）ls_batch_item-fact_unit_nom = ls_lips_split-umvkz. "销售数量转换成SKU的分子(因子)ls_batch_item-sales_unit_iso = ls_lips_split-meins. "被拆分DN基本单位。阅读详情

一只小蝈蝈

Office开发/ VBA 5,174 成员 17,906 内容

+ 关注 + 加入社区

切换为时间正序

ltc 2003-03-18

打赏
举报

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与之类似

我已经回答过了！

OutlookTiger 2003-03-18

打赏
举报

MSDN上搜索：
COM Add-ins: Part I
COM Add-ins: Part II

一只小蝈蝈 2003-03-17

打赏
举报

没有人会吗？

一只小蝈蝈 2003-03-17

打赏
举报

大家帮帮忙好吗？

一只小蝈蝈 2003-03-16

打赏
举报

我不是很明白，请详细说明好吗？

OutlookTiger 2003-03-14

打赏
举报

使用office中的commandbar对象,比如在word中打开VB脚本编辑器,可以看到引用中的ms office 9.0 object library.

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

相关推荐