ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2598|回复: 11

[求助] 自定义二级菜单的提示信息之问题请教

[复制链接]

TA的精华主题

TA的得分主题

发表于 2011-8-3 23:10 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
众所周知,Excel自定义工个栏,用这句代码可以做提示信息作用。
就是鼠标放在按钮上,有提示的文字出现。
  1. .TooltipText = "查詢用户和权限"
复制代码
如图效果:
012.jpg
但现在有个疑问,这句代码只能在一级菜单中使用在二级菜单下无效?郁闷中~~~
敬请各位大师指点,谢谢~
'

[ 本帖最后由 opel-wong 于 2011-8-4 00:09 编辑 ]

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-8-3 23:17 | 显示全部楼层
附上一段示例代码:
        Set iBar = Application.CommandBars.Add(cjname, msoBarTop, , True)
'-----------------------------------------------第一个二级菜单------------------------------------------------
        Set iBtn = iBar.Controls.Add(Type:=msoControlPopup)  '系统  '这里是一级
        With iBtn
            .Caption = " 【系统】"  '这个是名称(显示用的)一级菜单的
            .TooltipText = "查詢用户和权限" '鼠标移过提示
            With .Controls.Add(Type:=msoControlButton, ID:=2950)  '这里是二级第一个项目
                .FaceId = 69    '指定显示的图标
                .TooltipText = "查詢當前系統登錄用戶名" '鼠标移过提示
                .Style = msoButtonIconAndCaption    '同时显示图标和标题
                .BeginGroup = True
                .OnAction = "username"      '指定要执行的宏
                .Caption = " 【用戶】"  '这个是名称(显示用的)二级菜单的
                .Tag = "查詢"
                .Enabled = True
                .Visible = True
            End With
            With .Controls.Add(Type:=msoControlButton, ID:=2950)  '这里是二级第二个项目
                .FaceId = 2103      '指定显示的图标
                .BeginGroup = True
                .Caption = " 【權限】"  '这个是名称(显示用的)二级菜单的
                .Tag = "權限"
                .OnAction = "uusers"    '指定要执行的宏
                .Enabled = True
                .Style = msoButtonIconAndCaption
                .TooltipText = "修改簽名權限【需授權用戶使用】"
                .Visible = True
            End With
        End With

'

[ 本帖最后由 opel-wong 于 2011-8-3 23:18 编辑 ]

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-8-4 08:06 | 显示全部楼层
自己顶一下贴,别沉入海底了~~~
敬请各位大师帮忙打点指点哈 ,,,,

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-8-4 12:53 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-8-4 13:10 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
没有附件不能测试代码。

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-8-4 13:25 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
原帖由 蓝桥玄霜 于 2011-8-4 13:10 发表
没有附件不能测试代码。


回兰版,附件是一个加载宏, 关联的东西太多,不好上传。
关键部分的代码已在2楼贴出来了....

TA的精华主题

TA的得分主题

发表于 2011-8-4 22:40 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
这个不可以实现。该属性仅用于工具栏控件,菜单项忽略该属性。

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-8-4 22:54 | 显示全部楼层
原帖由 清风_ll 于 2011-8-4 22:40 发表
这个不可以实现。该属性仅用于工具栏控件,菜单项忽略该属性。


清风版主,有没有可以通过其它的方法来实现呢?
敬请指点,谢谢!

TA的精华主题

TA的得分主题

发表于 2011-8-4 23:02 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-8-4 23:06 | 显示全部楼层
原帖由 清风_ll 于 2011-8-4 23:02 发表
建议分组放置在工具栏上


现在的情况就是全部放在工具栏上,太多了。我想属于同一类型或属于同一部门的宏放在二级菜单,美观且实用。
但却一直找不到二级菜单下.TooltipText 可以正常使用的方法,,,,
不知道有没有其它的途径可以实现这个功能呢?
敬请指点~~~
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 05:08 , Processed in 0.047748 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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