Rotate inner labels of all visible PivotTables

'Rotate Inner Labels of all visible PivotTables.SBS
'Raynald Levesque 2004/08/23
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
				objPivotTable.RotateColumnLabels=True
				objPivotTable.UpdateScreen=True
			    objOutputItem.Deactivate
			End If
		Next IntItem
End Sub