I am in the midst of upgrading from version 8.2 to version 9 and have hit an anomaly....
I have a pivot table with 7 dimensions.
sin_ProductFamily (Vertical)
pro_Dimension01 (Vertical - starts off collapsed)
pro_Dimension02 (Vertical - starts off collapsed)
pro_Code (Vertical - starts off collapsed)
sin_AnalysisPeriod (Horizontal)
=Date(monthStart(cam_Month), 'MMM-YY') AS Month (Horizontal)
=IF(cam_HistoricalMonthNumber=0, varCurrentMonth_WDSF, cam_FinMonthWorkDays) AS WorkDays (Horizontal)
Our user wants to be able to "Toggle" sort the sin_AnalysisPeriod field...
To do this, I have put a "Period Sort" button on the screen which runs the following Macro (which calls a function)...
sub SortOrderCH900
Set chart = ActiveDocument.GetSheetObject("CH900")
varDim = 4
Call PeriodSort(chart, varDim)
end sub
Function PeriodSort(chart, varDim)
set Prop=chart.GetProperties
set Dims=Prop.Dimensions(varDim)
If Dims.SortCriteria.SortByNumeric = 1 Then
Dims.SortCriteria.SortByNumeric = -1
Else
Dims.SortCriteria.SortByNumeric = 1
End If
End Function
This works fine on version 8.2 (developer environment and user environment using ie)
On version 9 it work okay in the developer environment but we not in the user environment.
What it is doing (and the attached spreadsheet illustrates this) is dropping the dimensions immediately after the dimension we are sorting on from the pivot table.
Anyone any ideas on how I stop this from happening?
