Хочу сделать одну кнопку (скругленный прямоугольник), со следующим функционалом:
При нажатии - показывается суперскрытый лист, если он виден - то скрывается.
При этом на кнопке будет изменяться текст.
Название фигуре (скругленному прямоугольнику) присвоил "кн_сводка"
Лист, с которым проводятся операции скрыть/показать - "Сводка"
Подскажите в чем ошибка?
При нажатии - показывается суперскрытый лист, если он виден - то скрывается.
При этом на кнопке будет изменяться текст.
Название фигуре (скругленному прямоугольнику) присвоил "кн_сводка"
Лист, с которым проводятся операции скрыть/показать - "Сводка"
Подскажите в чем ошибка?
Код |
---|
Sub Показать_скрыть_Сводка() Application.ScreenUpdating = False If ActiveWorkbook.Worksheets("Сводка").Visible = xlSheetHidden Then ActiveWorkbook.Worksheets("Сводка").Visible = xlSheetVisible ActiveSheet.DrawingObjects("кн_сводка").Characters.Text = "Текст1" Else ActiveWorkbook.Worksheets("Сводка").Visible = xlSheetVisible ActiveSheet.DrawingObjects("кн_сводка").Characters.Text = "Текст2" End If End Sub |