Файл: _Presentation_2s-2.doc

Пример использования метода ShowLevels.

Dim ws As Excel.Worksheet = CType(Application.ActiveSheet, _

Excel.Worksheet)

'Передача параметров RowLevelsи/илиColumnLevels

ws.Outline.ShowLevels(RowLevels:=3)

Демонстрация работы с полными строками как с диапазонами. Например, по щелчку по ссылке Work with Groupsна листе примера выполняется следующий код:

Friend Sub DoWorkWithGroups()

'Задаем параметры группирования уровня рабочего листа.

'В данном случае итоговые строки находятся под строками

'данных (т.е. Excelизвестно, куда помещать итоговые строки),

'а форматирование итоговых строк не требуется - оно уже

'выполнено.

Me.Outline.SummaryRow = Excel.XlSummaryRow.xlSummaryBelow

Me.Outline.AutomaticStyles=False

'Группируем два именованных диапазона,

'каждый из которых является группой полных строк.

Me.Data2001.Group()

Me.Data2002.Group()

Me.AllData.Group()

'Диапазон строк от 24 до 27 не является именованным,

'поэтому работаем с этим диапазоном напрямую.

Dim rng As Excel.Range = CType(Me.Rows("24:27"), Excel.Range)

rng.Group()

'Свертываем до групп второго уровня.

Me.Outline.ShowLevels(RowLevels:=2)

End Sub

Группировка трех именованных диапазонов:

Me.Data2001.Group()

Группировка неименованного диапазона:

Dim rng As Excel.Range = CType(ws.Rows("24:27"), Excel.Range)

rng.Group()

По щелчку по ссылке Clear Groupsна примере рабочего листа запускается код, очищающий группы:

Friend Sub DoClearGroups()

'Задаем параметры RowLevels и/или ColumnLevels:

Me.Outline.ShowLevels(RowLevels:=3)

Dim rng As Excel.Range = CType(Me.Rows("24:27"), Excel.Range)

rng.Ungroup()

Me.Data2001.Ungroup()

Me.Data2002.Ungroup()

Me.AllData.Ungroup()

End Sub

Литература:

1. MSDN Library, Microsoft.– http://msdn.microsoft.com/ru-ru/library/default.aspx .

2. Ken Getz. Understanding the Excel Object Model from a Visual Studio 2005 Developer's Perspective.– Microsoft, December 2005.– http://msdn.microsoft.com/ru-ru/library/aa537184. aspx .

25