Pivot Table Column Widths

[Iriemon]

I have a worksheet containing several pivot tables. Is there any way to
"lock" the column widths so that when I refresh the tables the column widths
remain as I have them set?

Thanks

J

 

[Jim Thomlinson]

In a blank row above the pivot table add in some text (aaaaa or such)
designed to create the correct column width. It's kinda cheesy but it works...

 

[Agnieszka]

Hi,
I had the same problem, and the only solution, which I managed was to save a
simple macro with a key shortcut (i.e. CTRL+w), which set a fix column
witdths.


Sub Macro2()
'
' Macro2 Macro

' Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range("C5").Select
ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel,
True
Selection.ColumnWidth = 4.5
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
End Sub


BR
Agnieszka


„Iriemon†pisze: