在菜单设计的时候 把 复选 勾上然后初始化界面的时候,自己随便用代码点击.Checked = True搞成这个样子即可
把自动换行改成你的菜单名Private Sub 自动换行_Click()If 自动换行.Checked Then自动换行.Checked = FalseElse自动换行.Checked = TrueEnd IfEnd Sub