主题：请问一下，我在右键快捷菜单的popup事件中这样写的目的是为了让这个截图功能在不同的表右键后能够相应的隐藏，为什么这样写会无效的呢，求解

有没有报错？代码绝对没问题的。

或者你做个例子发上来测试。

每一次，都需要把之前的还原，或者你把visible=true的也设置一下。

msgbox("当前表:" & CurrentTable.Name)

For Each i As object In e.ContextMenu.Items
    i.visible = True
Next

If CurrentTable.Name="表A" Then
    ContextMenus("test").Items("截图表B").Visible=False
    ContextMenus("test").Items("截图表C").Visible=False
End If

If CurrentTable.Name="表B" Then
    ContextMenus("test").Items("截图表A").Visible=False
    ContextMenus("test").Items("截图表C").Visible=False
End If

If CurrentTable.Name="表C" Then
    ContextMenus("test").Items("截图表A").Visible=False
    ContextMenus("test").Items("截图表B").Visible=False
End If

不显示，就改成

 i.visible = False

1、你的这个菜单，有没有【增加列】那些的菜单选项？

2、只有你快捷菜单里面有的，你才能隐藏或显示出来。

For Each i As object In e.ContextMenu.Items
    If i.Name Like "截图*" Then
        i.visible = False
    Else
        i.visible = True
    End If
Next