Adjusting column widths

[#1]

Hi all,

Hopefully an easy one............

Is there a way to set the column widths in a PivotTable like you can do in Excel? i.e. rather than dragging one side of a column to adjust the width.

Thanks,

APS

[Anonymous · Accepted solution]

Yes, by macro, like this one, setting width of the first column(0) to 50:
sub Adjust
set ch = ActiveDocument.GetSheetObject("CH01")
ch.SetPixWidth 0, 50
end sub

[#3]

The macro is a nice idea and works well. It would be even better if it could be adapted to apply to all columns within an object rather than having to specify the width of each column.

Thanks.

[#4]

This doesn't appear to work in v10. I'm trying to use it on a straight table but I get the following error message:

Object doesn't support this property or method:  'ch.SetPixWidth'

Any ideas?

Thanks in advance.