Сворачивание структуры в excel

[Павeл2]

Hi

есть макрос, который обрабатывает форму, итогом обработки является обнуление столбца X с любых чисел на 0, но при этом всю свернутую структуру он разворачивает, т.е. изначально есть структура в виде плюсов, которую он падлец разворачивает, есть ли какая команда и как её дописать чтобы он автоматом скрывал структуру всего документа.

Огромное спасибо

[RayShade]

Где травы той нам, автор бы взять,

Чтобы проблему твою понять.

Иначе ответ нам не написать-

Голову только без толку ломать.

[ASD]

Мда это из разряда как НЕНАДО писать вопросы...

[RayShade]

Мишель, это из разряда "что еще могут модераторы"

[MeMBus]

Попробуй для свертки:

Код: Выделить всё

    With vWorkProg.oExcelObject.Application.ActiveSheet.Outline
        .AutomaticStyles = False
        .SummaryRow = xlAbove
        .SummaryColumn = xlLeft
    End With

   .......

    vWorkProg.oExcelObject.Application.ActiveSheet.Outline.ShowLevels RowLevels:=2
    vWorkProg.oExcelObject.Application.ActiveSheet.Outline.ShowLevels RowLevels:=1

2 RayShade
Классные стихи Нашел траву и понял суть вопроса

[RayShade]

Да... Это у меня вчера было... Кхм... Вдохновение

[GSerg]

Вдохновение в полном объеме скопировано в текстовик и сохранено для потомков

[gaidar]

Выкурим, друг мой травы,
Раз уж пришли мы на склон Фудзиямы.
Сядем на камни,
И, слушая пение птиц,
Будем мы морщить лоб,
Чтобы со сверткой в таблице бороться.

[RayShade]

GSerg

Я смотрю, у тебя большой текстовик получится

[MeMBus]

2 gaidar и RayShade
Плиз создайте тему для стихов... Забавно все же...