[CDR X5-X8] Упорядочение объектов на слое по размеру

Natc13

Участник
Топикстартер
Сообщения
5
Реакции
0
Всем привет. Вопрос у меня такой.
Нарисовал кучу кружков на слое, все разного диаметра. Необходимо остортировать на слое сверху (маленькие кругляхи) вниз (крупные кругляхи ).
Короче чтобы все кругляхи было видно, Может есть какой то простой способ?) Или всё таки заморочиться с макросом придётся?
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 137
Реакции
10 835

lev

Модератор
20 лет на форуме
Сообщения
2 142
Реакции
2 066
Код:
Sub Sort_by_size()

  Dim sr As ShapeRange
  Dim lngCounter As Long

  Set sr = ActiveSelectionRange
  If sr.Count > 1 Then
    ActiveDocument.BeginCommandGroup "Sort by size"
    sr.Sort ("@shape1.com.sizewidth<@shape2.com.sizewidth")
    For lngCounter = 2 To sr.Count
      sr(lngCounter).OrderToBack
    Next lngCounter
    ActiveDocument.EndCommandGroup
  Else
    MsgBox "Must have two or more objects selected.", vbInformation
  End If

End Sub
 
  • Спасибо
Реакции: NemoSUN и Chiga

Natc13

Участник
Топикстартер
Сообщения
5
Реакции
0
Круто!!! Спасибо большое.!!!