Question

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

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

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

Answer 1

非程序员最直接的版本：

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

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

1 个答案: