Comments on: Column Widths In Points

By: M P

M P — Fri, 04 Nov 2005 05:21:00 +0000

I may have found a way to rescale columns to user-determined widths with a called macro (note that I'm using inches instead of cms...if you want cm input, I'm sure calls to CentemetersToPoints would work):

Sub ChangeSelectedColWidthIn()
' ChangeSelectedColWidthIn Macro
' Macro recorded 11/03/2005 by M P
inWidth = Application.InputBox(prompt:="Enter Width (in inches)", Title:="Set Width of Selected Columns", Type:=1)
oldWidthPts = Range("A1?).Width
Range("A1?).ColumnWidth = 255
scaleFactor = Range("A1?).Width / 255
Range("A1?).ColumnWidth = oldWidthPts / scaleFactor
Selection.Columns.ColumnWidth = Application.InchesToPoints(inWidth) / scaleFactor
End Sub

Note that this example will rescale the "A" column. If you don't use the 255 scaling factor bit, you'll get significant resizing of the A column and less accurate scaling elsewhere. I assume it's due to round-off.

if you have any improvements/amendments to my code, please don't hesitate to contact me. I suppose it'd be best to play around with the ZZ column rather than A, but I don't know if that'd mess with set print areas;)

Papa Alpha Golf Echo Lima at Charley Sierra dot wisc dot edu

(got lazy at the end there:P)

By: Jon

Jon — Sun, 13 Jun 2004 06:00:00 +0000

I ran into this myself again recently, and found three times was the best you'll get. After that it either bounces around the target, or occasionally it just goes haywire. For the app I was building, it was better for me to aim a couple percent wider than the target, and live with it.

When you adjust chart plot area dimensions, or format a chart with lots of series, sometimes you have to rerun that a few times, too.

- Jon

By: Vince Ward

Vince Ward — Tue, 01 Jun 2004 18:40:00 +0000

Thank you, Dick!

I would have never figured that out on my own. I'm going to have to play around this now.

Thanks again,

Vince