Страницы: 1
RSS
Суперскрыть / показать лист кнопкой
 
Хочу сделать одну кнопку (скругленный прямоугольник), со следующим функционалом:
При нажатии - показывается суперскрытый лист, если он виден - то скрывается.
При этом на кнопке будет изменяться текст.

Название фигуре (скругленному прямоугольнику) присвоил "кн_сводка"
Лист, с которым проводятся операции скрыть/показать - "Сводка"

Подскажите в чем ошибка?
Код
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
 
Так нужно, наверное?
Код
...
Else
        ActiveWorkbook.Worksheets("Сводка").Visible = xlSheetHidden     
...
Скажи мне, кудесник, любимец ба’гов...
 
_Boroda_, спасибо)  
 
Цитата
HYPNO: Суперскрыть
это xlSheetVeryHidden
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
_Boroda_, суперскрытые листы показывает макрос, но скрывает их по-обычному (не супер)
 
Jack Famous, благодарю!
 
HYPNO, пожалуйста
Не забудьте включить обновление экрана или используйте мои коды:
If Else
Select Case
P.S.: всё ещё не стыдно за это?
Изменено: Jack Famous - 04.10.2022 11:10:10
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Страницы: 1
Наверх