Разворот внутренних меток столбцов на 90° во всех таблицах

 

Загрузить как .sbs Показать простым текстом

 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
'Поворот на 90° всех меток столбцов внутренней (нижней, наиболее близкой к ячейкам данных) размерности.
'Обрабатываются все мобильные таблицы.
'Автор: Raynald Levesque, 23.08.2004.

'Перевод: А.Балабанов, 12.01.2009.
'Проверено: SPSS 15.0.0.
'Размещение: http://www.spsstools.ru/Scripts/PivotTables/RotateInnerLabelsOfAllVisiblePivotTables.txt (.sbs).

Option Explicit
Sub Main
	Dim objOutputDoc As ISpssOutputDoc
	Dim objOutputItems As ISpssItems
	Dim objOutputItem As ISpssItem
	Dim objPivotTable As PivotTable
	Dim intCount As Integer
	Dim IntItem As Integer

	Dim I As Integer
		Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc
		Set objOutputItems=objOutputDoc.Items
		For IntItem = 0 To objOutputItems.Count - 1
			Set objOutputItem = objOutputItems.GetItem (IntItem)
			If objOutputItem.SPSSType = SPSSPivot And objOutputItem.Visible=True  Then
			    Set objPivotTable = objOutputItem.ActivateTable
			    objPivotTable.UpdateScreen=False
			    'Разворот на 90 градусов
				objPivotTable.RotateColumnLabels=True
				objPivotTable.UpdateScreen=True
			    objOutputItem.Deactivate
			End If
		Next IntItem
End Sub
Related pages

...

Navigate from here