可见、不可见按钮形状 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。通常应避免使用 Activate
或 Select
引用对象。
我想使用多功能按钮添加形状。
第一次点击应该显示形状
第二次点击应该隐藏形状
我可以使用一个形状按钮来实现吗?
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。通常应避免使用 Activate
或 Select
引用对象。