hide all field in pivot table

[ankita.sethi]

hi,

can someone help me with a code to hide all the fields in a pivot table through VBA??

pivot table is called "pivottable1", and is in "sheet1".

thanks!

 

[ankita.sethi]

With some experimentation, I could write the code finallye. Here it is:

Sub HideallFields
<STYLE type=text/css>body { margin: 0 0 0 0; padding:0 0 0 0 }td,div { font-family:Trebuchet MS;font-size:8pt;vertical-align:top }body { margin: 0 0 0 0; padding:0 0 0 0 }.transcript { background-color:#d2d2d2; }.messageBlock { margin-left:4px; margin-bottom:3px }.message { margin-left:100px; word-wrap:break-word; white-space:-moz-pre-wrap; _white-spacere; }.messageCont { margin-left:100px; word-wrap:break-word; white-space:-moz-pre-wrap; _white-spacere;}.other { color:#39577a;vertical-align:top;font-weight:bold;font-style:normal;float:left; width:95px; }.myself { color:#da8103;font-style:normal;font-weight:bold;font-style:normal;float:left; width:95px; }.otherCont { font-size:8px;text-align:right; color:#39577a;font-family:Arial,Lucida Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left; width:95px; }.myselfCont { font-size:8px;text-align:right; color:#da8103;font-family:Arial,Lucida Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left; width:95px; }.system { margin-left:4px; word-wrap:break-word;color:#da8103;font-style:normal;font-weight:normal; white-space:-moz-pre-wrap; _white-spacere; }.showTimestamp { margin-right:3px; float:right; color:#999999;font-style:normal;font-weight:normal; }.other1 { color:#ac2000;vertical-align:top;font-weight:bold;font-style:normal;float:left; width:95px; }.otherCont1 { font-size:8px;text-align:right; color:#ac2000;font-family:Arial,Lucida Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left; width:95px; }.other2 { color:#3c9fa8;vertical-align:top;font-weight:bold;font-style:normal;float:left; width:95px; }.otherCont2 { font-size:8px;text-align:right; color:#3c9fa8;font-family:Arial,Lucida Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left; width:95px; }.other3 { color:#e25614;vertical-align:top;font-weight:bold;font-style:normal;float:left; width:95px; }.otherCont3 { font-size:8px;text-align:right; color:#e25614;font-family:Arial,Lucida Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left; width:95px; }.other4 { color:#0b6ac8;vertical-align:top;font-weight:bold;font-style:normal;float:left; width:95px; }.otherCont4 { font-size:8px;text-align:right; color:#0b6ac8;font-family:Arial,Lucida Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left; width:95px; }.other5 { color:#b23290;vertical-align:top;font-weight:bold;font-style:normal;float:left; width:95px; }.otherCont5 { font-size:8px;text-align:right; color:#b23290;font-family:Arial,Lucida Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left; width:95px; }.other6 { color:#02e7c7;vertical-align:top;font-weight:bold;font-style:normal;float:left; width:95px; }.otherCont6 { font-size:8px;text-align:right; color:#02e7c7;font-family:Arial,Lucida Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left; width:95px; }.other7 { color:#5b3284;vertical-align:top;font-weight:bold;font-style:normal;float:left; width:95px; }.otherCont7 { font-size:8px;text-align:right; color:#5b3284;font-family:Arial,Lucida Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left; width:95px; }.tsDisplay { display:block }</STYLE><TABLE width=500>Dim a1 as PivotFields
Sheets("Sheet1").Select
For Each a1 In ActiveSheet.PivotTables("PivotTable1").PivotFields

With Sheets("Sheet1").PivotTables("PivotTable1")
a1.Orientation = xlHidden
End With

Next a1
<TBODY></TBODY></TABLE>
End Sub

 

[ankita.sethi]

Somehow that was creating some problems. So I tweaked it further:

Sub HideallFields()
Dim a1
Sheets("Sheet1").Select
For Each a1 In ActiveSheet.PivotTables("PivotTable2").PivotFields
With Sheets("Sheet1").PivotTables("PivotTable1")
a1.Orientation = xlHidden
End With

Next a1
End Sub