[已解决]【请教】菜单按键的请教

xdwy81129

工具——自定义，变成了灰色，无法使用

请教3个小问题
1.任何可以把该自定义按钮的灰色变成正常使用
2.正常使用的又怎么变成灰色的无法使用
3.怎么判断带按钮是否是灰色

谢谢赐教

最佳答案

月排行榜 / 总排行榜

FF7

2011-9-19 20:58

xdwy81129 发表于 2011-9-19 20:33
回复 FF7 的帖子

可我不知道工具——自定义的这个按钮用vba怎么写，请帮忙写下，谢谢了

Application.Commandbars("Worksheet Menu Bar").Controls("工具(&T)").Controls("自定义(&C)...").Enabled = True  '表示自定义按钮为可用
Application.Commandbars("Worksheet Menu Bar").Controls("工具(&T)").Controls("自定义(&C)...").Enabled = False  '表示自定义按钮为灰色不可用


IF Application.Commandbars("Worksheet Menu Bar").Controls("工具(&T)").Controls("自定义(&C)...").Enabled = False  then
    Msgbox "我是灰色的，我的Enabled属性为False"
end if

跳转到最佳答案楼层

kakaco

LZ 能发个图片吗。
看看怎么回事。这个对我们新手来说。比较难理解什么含义。

那么的帅

回复 xdwy81129 的帖子

提供具体示例

FF7

哈哈：
xx.Enabled = Not xx.Enabled
用Not对控件的Enabled属性取反即可将灰的变黑，将黑的变灰！

If Not xx.Enabled then msgbox "俺是灰色滴，不可用呢！！"

xdwy81129

回复 FF7 的帖子

可我不知道工具——自定义的这个按钮用vba怎么写，请帮忙写下，谢谢了

FF7

xdwy81129 发表于 2011-9-19 20:33
回复 FF7 的帖子

可我不知道工具——自定义的这个按钮用vba怎么写，请帮忙写下，谢谢了

Application.Commandbars("Worksheet Menu Bar").Controls("工具(&T)").Controls("自定义(&C)...").Enabled = True  '表示自定义按钮为可用
Application.Commandbars("Worksheet Menu Bar").Controls("工具(&T)").Controls("自定义(&C)...").Enabled = False  '表示自定义按钮为灰色不可用


IF Application.Commandbars("Worksheet Menu Bar").Controls("工具(&T)").Controls("自定义(&C)...").Enabled = False  then
    Msgbox "我是灰色的，我的Enabled属性为False"
end if

joyark

感谢版主指点

hkyooa

谢谢FF7!解决了我的问题