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

Natc13

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

lev

Модератор
15 лет на форуме
Сообщения
2 100
Реакции
2 002
Код:
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
Круто!!! Спасибо большое.!!!