我的Excel表格中有多种形状,如矩形,星形,标注。
我想要一个可以控制一组形状隐藏或显示的按钮。例如,通过一个按钮,我可以使所有矩形消失,然后再次单击该按钮,我可以使它出现。
有一个相关问题,但我无法遵循语法。
答案 0 :(得分:0)
非程序员最直接的版本:
Sub Button1_Click()
If ActiveSheet.Shapes("Rectangle 1").Visible Then
ActiveSheet.Shapes("Rectangle 1").Visible = False
Else
ActiveSheet.Shapes("Rectangle 1").Visible = True
End If
End Sub
更短的版本:
ActiveSheet.Shapes("Rectangle 1").Visible = Not ActiveSheet.Shapes("Rectangle 1").Visible