Конечно
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
.