我在菜单栏状态是这样的
文件
...全部打印
现在我要做的是 怎么使得点击鼠标 ...全部打印 的复选框被勾选  再次点击  勾的消失还有 怎么判断 ...全部打印 是勾选的还是没勾选啊 
**************************************************
Private Sub 全部打印_Click()
打勾
else
去掉勾
end if
End SubPrivate Sub command_Click()
if ...全部打印 勾选的
msgbox "已经勾选"
else
msgbox "没有勾选"
end if
end sub

解决方案 »

  1.   

    菜单编辑器中,有一个“复选”选项。勾选与不勾选是自动的,你在代码中调用其check属性即可知道。
      

  2.   

    Private Sub 全部打印_Click()
    if 全部打印.checked=true then 全部打印.checked=false else 全部打印.checked=true 
    End SubPrivate Sub command_Click()
    if 全部打印.checked=true then
    msgbox "已经勾选"
    else
    msgbox "没有勾选"
    end if
    end sub