在Excel中隐藏/显示特定对象

时间:2017-06-09 08:32:40

标签: excel excel-vba vba

我的Excel表格中有多种形状,如矩形,星形,标注。

我想要一个可以控制一组形状隐藏或显示的按钮。例如,通过一个按钮,我可以使所有矩形消失,然后再次单击该按钮,我可以使它出现。

有一个相关问题,但我无法遵循语法。

1 个答案:

答案 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