MS Visio: сортировка листов книги

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/MS Visio: сортировка листов книги - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Visio » MS Visio: сортировка листов книги (макрос для сортировки листов книги MS Visio)

MS Visio: сортировка листов книги

Alex_ST

Дата: Вторник, 20.12.2011, 16:26 | Сообщение № 1

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3206

Репутация: 609 ±

Замечаний: 0% ±

2003

[vba]

Код

Sub ReOrder_Pages(doc As Visio.Document)
     Dim iPage As Visio.Page
     Dim Arr$(), jArr$, iArr$, i%, j%
     ReDim Arr(1 To doc.Pages.Count)

     For i = 1 To doc.Pages.Count   ' заполнить массив имён листов
        Arr(i) = doc.Pages(i).Name
     Next i

     For j = LBound(Arr) To UBound(Arr)   ' сортировать массив
        For i = UBound(Arr) To LBound(Arr) + 1 Step -1
           jArr = Arr(i - 1): iArr = Arr(i)
           If iArr < jArr Then Arr(i) = jArr: Arr(i - 1) = iArr
        Next i
     Next j

     For i = 1 To doc.Pages.Count   ' изменить индексы имён листов по массиву
        doc.Pages(Arr(i)).Index = i
     Next i
End Sub

[/vba]

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Вторник, 20.12.2011, 16:36

Ответить

Страница 1 из 1
1