'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