Сортировка элементов массива
Написал mendow в 22/10/2008 16:04:44
есть код:
Set gb = ActivePage.FindShapes(, cdrTextShape)
For Each s In gb
's.PositionX
s.Text.Replace KW, FormatNumber(n, 0, vbTrue, vbFalse, vbFalse), False, ReplaceAll:=True
n = n + 1
Next s
Как отсортировать масив gb по значению элемента s.PositionX от большего к меньшему?
Set gb = ActivePage.FindShapes(, cdrTextShape)
For Each s In gb
's.PositionX
s.Text.Replace KW, FormatNumber(n, 0, vbTrue, vbFalse, vbFalse), False, ReplaceAll:=True
n = n + 1
Next s
Как отсортировать масив gb по значению элемента s.PositionX от большего к меньшему?
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?post_id=91537
