可见、不可见按钮形状 vba

Visible, invisible button shape vba

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

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

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

当然

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。通常应避免使用 ActivateSelect 引用对象。