Office中国论坛/Access中国论坛

标题: VBA入门小实例（二） [打印本页]

作者: 李啸林 时间: 2004-10-12 05:14
标题: VBA入门小实例（二）
第一步：在工程Project下面新建立一模块，在模块中添加一个过程

Sub HelloAbc()

  MsgBox ("大家好")

End Sub

第二步：在Word对象ThisDocment的open事件中添加以下代码

Dim MyBar As CommandBar

Dim myButton As CommandBarControl

  Set MyBar = CommandBars.Add("MyBar")

  Set myButton = MyBar.Controls.Add(Type:=msoControlButton)





  myButton.Caption = "Click Me"

  myButton.Style = msoButtonIconAndCaption

  myButton.OnAction = "HelloAbc"





  MyBar.Visible = True

第三步：关闭重新打开。

第四步：手工删除自动建立工具栏

练习：修改为自动删除新建立的工具栏

实例下载：[attach]7159[/attach]

作者: xinbao 时间: 2004-10-12 19:03
不错不错，基础工程，支持支持

作者: xinbao 时间: 2004-10-12 19:05
提一下，感觉放到Word编程栏目更好些

作者: 李啸林 时间: 2004-10-12 21:15

以下是引用xinbao在2004-10-12 11:04:38的发言：

提一下，感觉放到Word编程栏目更好些

感谢支持。

放在这里原因有二：

1、这儿实在是太冷清了。想提升点人气。否则我这版主有失业危险

。

2、我想写的是VBA。不会局限于word的。

作者: zyz218 时间: 2005-1-28 02:59
不错不错,,,,好东东

作者: nnlm 时间: 2005-5-31 23:48
好好学习天天向上，谢谢！！

作者: nplgacce 时间: 2005-11-3 06:26
[em17][em17][em17]

作者: crazyiori 时间: 2005-11-29 19:03
不错不错。

作者: 120HYH 时间: 2005-12-1 17:08
可以

作者: marine12 时间: 2005-12-28 18:55
好的,正在学习中

作者: yunuo945 时间: 2008-1-18 17:54
我要学习~！和和~！！

作者: wlyjtj 时间: 2008-9-20 16:02
东西有点创意啊

作者: aung 时间: 2008-10-12 21:22
[:31]

作者: 明镜 时间: 2008-10-13 20:50
看一下

作者: yanwei82123300 时间: 2008-10-14 07:52

谢谢分享

作者: changweiren 时间: 2008-10-30 19:09
顶李顶李顶李顶李

作者: ymruse 时间: 2009-3-24 15:11
看看,呵呵!谢谢!

作者: gongtuo 时间: 2009-3-30 14:04
你太帅了

作者: leolong 时间: 2009-3-30 18:44
我是来学习的！

作者: carol2891 时间: 2009-4-5 15:18
顶起

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)