Автоподгонка—2 (масштабирование ширины таблицы для устранения переносов меток)

 

Загрузить как .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
33
34
35
36
37
38
'Begin Description
'Скрипт масштабирует ширину столбцов для меток строк и столбцов так, чтобы метки умещались в одной строке (чтоб не было переносов).
'Условия: мобильная таблица, подлежащая обработке, должна быть выделена перед запуском скрипта.
'End Description

' Перевод: А. Балабанов, 18.11.2008.
' Проверено: SPSS 15.0.0.

Option Explicit

Sub Main

	'Объявление объектных переменных SPSS
	Dim objPivotTableMain As PivotTable
	Dim objItemMain As ISpssItem

	Dim bolFoundOutputDoc As Boolean
	Dim bolPivotSelected As Boolean
	
	'Вызов процедуры GetFirstSelectedPivot для установления ссылки на первую выделенную мобильную таблицу
	'GetFirstSelectedPivot - глобальная процедура, которая находится в файле скриптов SPSS Global.sbs (по умолчанию)
	Call GetFirstSelectedPivot(objPivotTableMain, objItemMain, bolFoundOutputDoc, bolPivotSelected)

	If (bolFoundOutputDoc = False) Or (bolPivotSelected = False) Then
		'либо нет открытого окна выдачи, либо мобильная таблица не была выделена
		Exit Sub
	End If
	
	objPivotTableMain.ClearSelection
	
	Call SetPivotTableColumnLabelsToNoWrap (objPivotTableMain)
	Call SetPivotTableRowLabelsToNoWrap (objPivotTableMain)

	
	' Выход из режима активированной мобильной таблицы и завершение скрипта
	objItemMain.Deactivate  
	
End Sub
Related pages

...

Navigate from here