[CDR X5-X8] Как свернуть все слои?

[flamber]

Подскажите пожалуйста!
Работаю с большим количеством слоев примерно 15-20 в них сотни объектов. Когда слои раскрыты устаешь матать скролом и сворачивать их.
Есть ли какая кнопка или макрос чтоб свернусь все слои разом?

 

[eugeny]

где заголовок страницы с ctrl кликнуть по кнопке сворачивания. Свернет все слои и внутри группы тоже свернет

 

[flamber]

А если Corel X5?

 

[Старкрафт]

Закрыть-открыть докер, разве что

 

[flamber]

Может быть через VBA можно как-то?

 

[dastin]

через VBA

чтоб свернусь все слои разом?

повесьте на кнопочку

Sub Lay()
    Application.FrameWork.Automation.Invoke "d03aaa28-510d-4f11-acf2-4259388962d4"
DoEvents
    Refresh
End Sub

для Х5 точно ... для иных версий - не факт
до

после

 

[flamber]

СПАСИБО ОГРОМНОЕ!!! Все работает отлично.

Может есть еще способ делать все слои видимыми и не видимыми не перебором, я все разом. Слоев много долго каждый раз бегает

 

[dastin]

ожет есть еще способ делать все слои видимыми и не видимыми

этого будет недостаточно?

 

[dastin]

если ВСЕ слои сделать невидимыми - на что смотреть?

 

[flamber]

Нужно погасить все слои чтоб выбрать нужные...

 

[dastin]

Нужно погасить все слои

Сейчас чем вы гасите? Что за код скрывается за нажатием ...

 

[flamber]

Sub LayrsOn()
Dim i As Integer
For i = 0 To ActivePage.Layers.Count
ActivePage.Layers.Item(i).Visible = True
Next
End Sub

 

[dastin]

кое-что можно добавить ...
но, это для одной страницы - так и задумано?

 

[flamber]

Да. Количество объектов очень большое. Комп и с одной еле справляется.

 

[dastin]

если вышеозначенный код с перебором "разукрасить фонариками"

Sub LayrsOn()
Dim i As Integer
    Optimization = True
    EventsEnabled = False
For i = 0 To ActivePage.Layers.Count
ActivePage.Layers.Item(i).Visible = False
Next
    EventsEnabled = True
    Optimization = False
    ActiveWindow.Refresh
End Sub

будет выполняться несколько иначе
и всё загасит

соответственно

Sub LayrsOn()
Dim i As Integer
    Optimization = True
    EventsEnabled = False
For i = 0 To ActivePage.Layers.Count
ActivePage.Layers.Item(i).Visible = True
Next
    EventsEnabled = True
    Optimization = False
    ActiveWindow.Refresh
End Sub

включит всё обратно

 

[flamber]

Спасибо БОЛЬШОЕ!!!
Все ускорилось отлично!!!
еще Refresh добавил, а то иконки глазок не обновлялись

 

[dastin]

можно чуть иначе ... но будет ли быстрее???
Кроме вас - с жутким количеством слоёв в макете - не оценит никто

Sub LayrsOn2()
Dim iLayer As Layer
    Optimization = True
    EventsEnabled = False
For Each iLayer In ActiveDocument.ActivePage.Layers
iLayer.Visible = True
Next
    EventsEnabled = True
    Optimization = False
    ActiveWindow.Refresh
End Sub

 

[flamber]

Все отрабатывает практически мгновенно. Спасибо!!!

 

[dastin]

Спасибо!!!

и вам спасибо ... от давно не включамого, грустившего старикана ASUS X50, ибо только на нём остался Corel X5

 

[dimastyj]

повесьте на кнопочку

Sub Lay()
    Application.FrameWork.Automation.Invoke "d03aaa28-510d-4f11-acf2-4259388962d4"
DoEvents
    Refresh
End Sub

для Х5 точно ... для иных версий - не факт
до
Посмотреть вложение 163777

после
Посмотреть вложение 163778

А как можно свернуть все страницы?