Выделение экземпляров объекта по имени предка

[sniffysko]

Собственно стоит такая задача. У меня схема, на которой набросано большое количество экземпляров символов. Скажем, создано около 30 символов и внутри документа набросано по 10-20 экземпляров каждого символа. Необходимо легко и изящно выделить все значки одного типа. При этом, у всех символов цвет одинаковый, толщина обводки тоже. Руками тяжело и глаза болят. :о) Есть конечно вариант для каждого объекта создавать стиль оформления и искать по нему, но так долговато получается. Может есть еще какой способ?

 

[karabin]

Ответ: Выделение экземпляров объекта по имени предка

Edit/Find and Replace/Find Objects/Begin a New Search, отмечаем Find any type of object, в закладке Fills отмечаем свойство текста/— кнопка далее/выбираем цвет в Specific Uniform Color fill/ — кнопка далее/ готово. Find All.

 

[sniffysko]

Ответ: Выделение экземпляров объекта по имени предка

Не не канает. Все значки одного цвета. Черного. Поэтому интересует можно ли в параметрах поиска задать такую штуку как имя предка? Все работает на уровне объектов. Никаких других характерных черт для поиска нет.

 

[knower]

Ответ: Выделение экземпляров объекта по имени предка

Что, и количество точек разное? Попробуй всё же поиграть параметрами Replace/Find. Поотключай там всё лишнее. Судя по условиям, всё должно получится...

 

[lev]

Ответ: Выделение экземпляров объекта по имени предка

Выделяешь один символ, запускаешь макрос...
Дополнительные проверки потом пристроишь сам.

Sub FindSymbols()
Dim s As Shape, symb As String
symb = ActiveShape.Symbol.Definition.Name
For Each s In ActivePage.Shapes
  If s.Type = cdrSymbolShape Then
    If s.Symbol.Definition.Name = symb Then
      s.AddToSelection
    End If
  End If
Next s
End Sub

 

[sniffysko]

Ответ: Выделение экземпляров объекта по имени предка

Выделяешь один символ, запускаешь макрос...
Дополнительные проверки потом пристроишь сам.

Спасиба. Попробую.