求教：如何标记用户快捷菜单（打勾）

henterwu

目的是最终删除打勾的菜单项，请各位大师帮忙。

守柔

新名词？用户快捷菜单？还打勾？是不是自定义的用户菜单，在自定义对话框中的是不是？能不能附个图上来？

henterwu

目的是点击菜单“menu & n”后有如图效果，然后点击“Remove Menu”用FindContrls方法删除打勾菜单。请守柔老师指点。谢谢！！！

[此贴子已经被作者于2005-1-22 17:31:21编辑过]

守柔

你上传的图片我看不到，能不能用BMP？谢谢

henterwu

在3楼改过了，谢谢！！！

守柔

请参：（不知是否是楼主想要的结果？）

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By 守柔(ShouRou)@ExcelHome 2005-1-23 10:27:40 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Private Sub Document_Close() On Error Resume Next Application.CommandBars("Text").Controls("New Menu").Delete '恢复原有菜单 End Sub '---------------------- Private Sub Document_Open() Dim i As Byte, Half As Byte, strName As String, NewButton As CommandBarPopup Dim MenuAdd As CommandBarButton On Error Resume Next Application.CommandBars("Text").Controls("New Menu").Delete '预防性删除 Half = Int(Application.CommandBars("Text").Controls.Count / 2) '中间位置 Set NewButton = Application.CommandBars("Text").Controls.Add(Type:=msoControlPopup, Before:=Half) With NewButton .Caption = "New Menu" '命令名称 .Visible = True '可见 End With For i = 1 To 4 strName = "Menu" & i Set MenuAdd = NewButton.Controls.Add(Type:=msoControlButton) With MenuAdd .Caption = strName .OnAction = "MySub" .State = msoButtonDown .Visible = True .Tag = strName End With Next End Sub '---------------------- Sub MySub() Dim ActionTag As String ActionTag = CommandBars.ActionControl.Tag MsgBox CommandBars.ActionControl.Tag With Application.CommandBars("Text").Controls("New Menu") If .Controls(ActionTag).State = msoButtonDown Then MsgBox "It's A Test!", vbOKOnly + vbInformation .Controls(ActionTag).State = msoButtonUp Else .Controls(ActionTag).State = msoButtonDown End If End With End Sub '---------------------- Sub ComReset() '重新设置右键菜单,彻底恢复默认设置 Application.CommandBars("Text").Reset End Sub '----------------------

henterwu

谢谢，我试一下。有问题再请教。

henterwu

谢谢守柔老师的指点。 以下是从您的代码中得到的启发（ActionControl）

Sub PreDel() CommandBars.ActionControl.FaceId = 220 '在New Menu 的子菜单中点击定义faceid End Sub

以下是删除faceid=220的菜单 Sub DelExcute() For Each mu In CommandBars("text").Controls("New Menu").Controls If mu.FaceId = 220 Then ss.Delete Next End Sub

henterwu

还想请教：

If .Controls(ActionTag).State = msoButtonDown Then

为何意？谢谢！！！

守柔

To henterwu:

State 属性应用于 CommandBarButton 对象的情形。

返回或设置命令栏按钮控件的外观。MsoButtonState 类型，可读写。

MsoButtonState 可以为下列 MsoButtonState 常量之一。

msoButtonDown

msoButtonMixed

msoButtonUp

expression.State

expression 必需。该表达式返回一个 CommandBarButton 对象。

当 .Controls(ActionTag).State = msoButtonDown(-1)时,表示命令按钮处于勾选状态;

当 .Controls(ActionTag).State =msoButtonUp(0)时,表示命令按钮处于未勾选状态

msoButtonMixed目前还未知是何状态.(测试时未感觉有何明显变化)