Run time error using Orientation for PivotField

MarioP · July 25th, 2006, 02:47 AM

I've a pivot table where i need to hidden several fields (data fields) in a vba program. Using the macro registration technique i saw that the property used was like that:

ActiveSheet.PivotTables("Pivot_table1").PivotField s("Name").Orientation = xlHidden

Then i inserted the code automatically created into my code and i had a strange result: for the data fields coming out from the data source the Orientation property was working, for a calculated filed i receive back the 1004 run time error (the translation message from the italian version is roughly "impossible to set the property Orientation for the PivotField class".

The question is: how can i hidden a calculated field?

Mario

mac6777 · June 24th, 2009, 10:06 AM

I've been having this same problem in Excel 2003. I'm trying to hide a calculated field "BGT Var", and I get an error that states "Unable to set the Orientation property of the PivotField class. Does anyone have any idea how to hide a calculated field with VBA? Below is the code.

Code:

 
Sub Fin_Amt_Class_Select()
 
'On Error Resume Next
Dim pt As PivotTable
Dim ws As Worksheet
Set ws = Worksheets("Proj_Summ")
Set pt = ws.PivotTables("PivotTable1")
 
pt.PivotFields("Re-FCST").Orientation = xlHidden
 
End Sub

Shasur · June 24th, 2009, 10:09 PM

Can you try

pt.PivotFields("Re-FCST").Hidden = True

Cheers
Shasur