[CDR 2017-2021] Найти на странице текстовый объект по размеру шрифта.

[tohaa]

Добрый день.

На странице несколько текстовых объектов. Случайного кегля.

Как среди них найти текст с 10м кеглем?

 

[mnemonix]

В 2021 так, думаю, что в 20 так же, пропустил его.

 

[tohaa]

В 2021 так, думаю, что в 20 так же, пропустил его. Посмотреть вложение 146073

меня интересует возможность поиска такого тескта с помощью макроса.

 

[DukereD]

пробежаться по параметру s.Text.Story.Size и добавить нужные в SelectionRange

 

[lev]

Sub txt10()
  Dim s As Shape
  For Each s In ActiveLayer.FindShapes(, cdrTextShape)
    If s.Text.Story.Size = 10 Then s.AddToSelection
  Next s
End Sub

В реале в тексте могут быть буквы разного кегля, данный простой код их не ловит. Ну и по клипам и т.п. не ползает