可见、不可见按钮形状 vba

Question

我想使用多功能按钮添加形状。
第一次点击应该显示形状
第二次点击应该隐藏形状

我可以使用一个形状按钮来实现吗？

Sub HideShape()
    ActiveSheet.Shapes("Shape1").Visible = False
End Sub
Sub UnhideShape()
    ActiveSheet.Shapes("shape 1").Visible = True
End Sub

Answer 1

Sub HideShowShape()
    ActiveSheet.Shapes("Shape1").Visible = Not ActiveSheet.Shapes("Shape1").Visible
End Sub

Answer 2

当然

Sub HideOrShowButton()
If ActiveSheet.Shapes("Shape1").Visible = False Then
    ActiveSheet.Shapes("Shape1").Visible = True
Else
    ActiveSheet.Shapes("Shape1").Visible = False
End if
End Sub

子程序检查形状是否不可见，如果是，则使其可见。如果不是，它会隐藏形状。

我建议您不要使用 ActiveSheet，而是使用sheet代号（最好）或name/index。通常应避免使用 Activate 或 Select 引用对象。

可见、不可见按钮形状 vba

Visible, invisible button shape vba

vba

button

shapes

visible

invisible