我想在 Word 、Excel 中加入一个工具栏,再加上一个按钮,就象金山软件一样,怎么做呢??(100分)

  • 主题发起人 主题发起人 netwinds
  • 开始时间 开始时间
用VB做,挺简单的,可以生成一个Dll文件,注册Dll文件即可
 
怎么做,给个例子嘛!
 
gz,up,up,upupup
 
加了这后,怎么删除?
 
如果是用扩展做的,只要用regsvr32 注册之后就可加上,用 regsvr32 /u 反注册之后
就可删除,但我就是不知怎么做,再请高手!!!!!!!!
 
救命啊!!!!!!!!!
 
用VB做:
1、新建工程-选择“外接程序”
2、将原有代码全部删除,原有代码是针对VB的
3、双击设计器文件,打开外接程序设计器(新建时自动生成一个设计器文件和一个窗体文件)
在应用程序栏中选择Microsoft Excel
4、打开菜单:工程-引用。增加“Microsoft excel 10.0 object library”引用
5、增加以下代码到设计器中
option explicit
private withevents XLApp as excel.application
private withevents Button1 as office.commandbarbutton

private sub addininstance_onconnection(byval application as object, _
byval connectmode as addindesignerobjects.ext_connectmode, _
byval addininst as object, custom() as variant)
on error resume next
dim Cmdbar as office.commandbar
set XLApp=application
set cmdbar=XLApp.commandbars.add("我的工具栏",1,,true)
cmdbar.visible=true
set button1=cmdbar.controls.add(,,,,true)
with button1
.caption="Hello Word!"
.visible=true
.tooltiptext="提示信息。。。。"
.faceid=25
.style=msobuttoniconandcaption
end with
end sub

'private sub Button_Click(byval ctrl as office.commandbarbutton, _
canceldefault as boolean)
'更改成以下:
private sub Button1_Click(byval ctrl as office.commandbarbutton, _
canceldefault as boolean)
msgbox "hi,你单击了按钮"
end sub

通过文件菜单的生成***.dll菜单可编译生成一个DLL文件,编译过程会自动注册DLL文件
打开EXCEL就可看到效果,要转到其它机器,可以自己做注册程序,或用VB自带的打包程序打包。
(因上网电脑没有VB,只能敲点示范代码,自己再琢磨吧)
 
很简单,做一个模板,放在Office安装目录下的/Office/Startup下就行了。Office启动时
会自动加载它。
 
to jiangxiancheng:
能详细说一下吗?
 
说来话长,还是找本书最好。
 
to:jsxjd加了这后,怎么删除?
 
搞定,谢谢!
 
搞定,谢谢!
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部