'Поворот на 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