' Транспонирование (перестановка строк и столбцов) выделенной мобильной таблицы (Pivot Table)
' Источник: Universitдts-Rechenzentrum Trier
' http://www.uni-trier.de/urt/user/baltes/docs/saxbasic/saxbasic.htm

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

Option Explicit

Sub Main
	Dim objPivotTable As PivotTable
	Dim objItem As ISpssItem
	Dim bolFoundOutputDoc As Boolean,bolPivotSelected As Boolean

	Call GetFirstSelectedPivot(objPivotTable,objItem,bolFoundOutputDoc,bolPivotSelected)
	If (bolFoundOutputDoc=False) Or (bolPivotSelected=False) Then
		Exit Sub
	End If

	objPivotTable.PivotManager.ColumnDimension(0).MoveToRow(1)
	objPivotTable.PivotManager.RowDimension(0).MoveToColumn(0)
	objItem.Deactivate

End Sub