[CDR X4 и ранее] Инвертировать выбор объектов

[saloed]

Не помню встречал или нет - как инвертировать выбор объектов?

 

[lev]

Я делаю мелкий зум и с Shift'ом обвожу всё.
Можно и макросы поискать, но мне так проще.

 

[saloed]

нашел макрос,

Sub invertSelection()
Dim sr As New ShapeRange
Set sr = ActiveSelectionRange
With ActiveDocument
.ClearSelection
.AddToSelection ActivePage.shapes.All
.AddToSelection ActivePage.Layers("Desktop").shapes.All
.RemoveFromSelection sr
End With
End Sub

работает, кроме строки (уже менял и на "Рабочий стол")

.AddToSelection ActivePage.Layers("Desktop").shapes.All

 

[_MBK_]

.AddToSelection ActivePage.Layers(1).shapes.All ?

 

[saloed]

.AddToSelection ActivePage.Layers(1).shapes.All ?

как бы да, но это это дает?
тот скрипт и с этой выключенной строкой выделяет объекты на рабоем столе

 

[_MBK_]

тот скрипт и с этой выключенной строкой выделяет объекты на рабоем столе

Тогда зачем она вообще нужна?

 

[saloed]

Тогда зачем она вообще нужна?

она была в исходном (найденном) скрипте. получается не нужна.

 

[_MBK_]

Так, выходит, все хорошо?

 

[saloed]

там в макете куча перекрывающихся объектов, а нужен был только один цвет. я как предствал все это вручную выделяь... так с этим скриптом я в миг все ненужное перекрасил. так что все ок

 

[kreotiff]

Тогда зачем она вообще нужна?

При многослойном документе выделяет объекты только в слое "Desktop". Если такого слоя нет - скрипт будет давать ошибку.

 

[_MBK_]

При многослойном документе выделяет объекты только в слое "Desktop". Если такого слоя нет - скрипт будет давать ошибку.

Только? Как то сомнительно. Предыдущая строка по идее, вообще все шейпы на всех слоях активной страницы выделяет.

 

[kreotiff]

Только? Как то сомнительно. Предыдущая строка по идее, вообще все шейпы на всех слоях активной страницы выделяет.

Согласен, если ее закоментить, то добавляется к выделению только шейпы из слоя "Desktop", видимо просто какая-то закладка разработчика или последствия тестирования
Стоит в документ добавить слой Desktop ошибка пропадет...