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，而应使用工作表代号（最好）或名称/索引。通常应避免使用Activate或Select来引用对象。

可见，不可见的按钮形状VBA

2 个答案: