可见，不可见的按钮形状 vba答案

【问题标题】：Visible, invisible button shape vba可见，不可见的按钮形状 vba
【发布时间】：2019-06-06 09:23:22
【问题描述】：

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

我可以用一个形状按钮做到这一点吗？

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

【问题讨论】：

标签： vba button shapes visible invisible

【解决方案1】：

当然

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

sub 检查形状是否不可见，如果是，则使其可见。如果没有，它会隐藏形状。

我建议您不要使用 ActiveSheet，而是使用工作表代号（最好）或名称/索引。通常应避免使用Activate 或Select 引用对象。

【讨论】：

太好了，谢谢 :)
很高兴能帮上忙

【解决方案2】：

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

【讨论】：