VBA入门小实例（二）

李啸林 · 发表于 2004-10-12 05:14:00

第一步：在工程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

第三步：关闭重新打开。

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

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

实例下载：

carol2891 · 发表于 2009-4-5 15:18:54

顶起

leolong · 发表于 2009-3-30 18:44:34

我是来学习的！

gongtuo · 发表于 2009-3-30 14:04:44

你太帅了

ymruse · 发表于 2009-3-24 15:11:47

看看,呵呵!谢谢!

changweiren · 发表于 2008-10-30 19:09:26

顶李顶李顶李顶李

yanwei82123300 · 发表于 2008-10-14 07:52:41

谢谢分享

明镜 · 发表于 2008-10-13 20:50:37

看一下

aung · 发表于 2008-10-12 21:22:22

[:31]

wlyjtj · 发表于 2008-9-20 16:02:38

东西有点创意啊

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群2 (792054000)
Access交流总群 (5004108)
Access HRM (297602667)

主题相关群

地区相关群[您还没设置居住地]

[其它] VBA入门小实例（二）

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)