Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2309|回复: 8

[已解决]请教高手老师,帮我做个word文档的自定义工具栏,如图:

[复制链接]
发表于 2013-12-24 15:56 | 显示全部楼层 |阅读模式
请教高手老师,帮我做个word文档的自定义工具栏,如图:

工具栏.JPG
工具栏.rar (1.1 KB, 下载次数: 6)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-12-25 09:16 | 显示全部楼层    本楼为最佳答案   
这个和在EXCEL中创建菜单是一样的。
回复

使用道具 举报

 楼主| 发表于 2013-12-25 09:24 | 显示全部楼层
hwc2ycy 发表于 2013-12-25 09:16
这个和在EXCEL中创建菜单是一样的。

谢谢老师的提示!
回复

使用道具 举报

发表于 2013-12-25 09:27 | 显示全部楼层
工具栏.rar (16.07 KB, 下载次数: 6)
回复

使用道具 举报

 楼主| 发表于 2013-12-25 11:38 | 显示全部楼层
hwc2ycy 发表于 2013-12-25 09:27
我在10下测试的。

老师你好,这个附件中没有代码呀!
回复

使用道具 举报

发表于 2013-12-25 12:05 | 显示全部楼层
yjwdjfqb 发表于 2013-12-25 11:38
老师你好,这个附件中没有代码呀!

代码已经写在DOCUMENT里了。
你看看打开后可有菜单?


回复

使用道具 举报

发表于 2013-12-25 12:12 | 显示全部楼层
工具栏.rar (16.07 KB, 下载次数: 1)
回复

使用道具 举报

发表于 2013-12-25 12:13 | 显示全部楼层
  1. Private Sub Document_Close()
  2.     On Error Resume Next
  3.     Application.CommandBars("mymenu").Delete
  4. End Sub

  5. Private Sub Document_Open()
  6.     Dim cmb As CommandBar
  7.     On Error Resume Next
  8.     Application.CommandBars("mymenu").Delete
  9.     Set cmb = Application.CommandBars.Add("mymenu", msoBarTop, False, True)
  10.     With cmb
  11.         With .Controls.Add(msoControlButton)
  12.             .Caption = "菜单一"
  13.             .Style = msoButtonIconAndCaption
  14.             .FaceId = 5
  15.             .OnAction = "test"
  16.         End With
  17.         With .Controls.Add(msoControlButton)
  18.             .Caption = "菜单二"
  19.             .Style = msoButtonIconAndCaption
  20.             .FaceId = 6
  21.             .OnAction = "test"
  22.         End With
  23.         With .Controls.Add(msoControlButton)
  24.             .Caption = "菜单三"
  25.             .Style = msoButtonIconAndCaption
  26.             .FaceId = 7
  27.             .OnAction = "test"
  28.         End With
  29.         With .Controls.Add(msoControlPopup)
  30.             .Caption = "下拉菜单一"
  31.             With .Controls.Add(msoControlButton)
  32.                 .Caption = "子菜单一"
  33.                 .FaceId = 8
  34.                 .OnAction = "test"
  35.             End With
  36.             With .Controls.Add(msoControlButton)
  37.                 .Caption = "子菜单二"
  38.                 .FaceId = 9
  39.                 .OnAction = "test"
  40.             End With
  41.         End With
  42.         .Visible = True
  43.     End With
  44. End Sub
复制代码
你再插入一个标准模块,
  1. Sub test()
  2.     MsgBox "test"
  3. End Sub
复制代码

评分

参与人数 1 +9 收起 理由
yjwdjfqb + 9 很给力!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2013-12-25 13:29 | 显示全部楼层
hwc2ycy 发表于 2013-12-25 12:13
你再插入一个标准模块,

感谢老师的帮助,太好用了!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 03:22 , Processed in 0.677564 second(s), 17 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表