Autofit Columns

[bboschert]

Hello everyone. I am looking for a quick way to autofit all the
columns within a Project table. Does anyone know if there is a menu
option or hotkey that will adjust ALL columns, at once, to display all
the text they may contain?

[John]

Post by bboschert
Hello everyone. I am looking for a quick way to autofit all the
columns within a Project table. Does anyone know if there is a menu
option or hotkey that will adjust ALL columns, at once, to display all
the text they may contain?

bblschert,
Sorry, there isn't an autofit command in Project. However the following
simple VBA macro will do what you want:

Sub ColFit()
SelectAll
Cols = ActiveSelection.FieldNameList.Count
For i = 1 To Cols
ColumnBestFit i
Next i
End Sub

By the way, this newsgroup is going away (supposedly). Please go to the
MVP webpage at:
http://www.mvps.org/project/faqs.htm
and see FAQ 24 - Project Newsgroups

Hope this helps.
John
Project MVP

[Mike Glen]

Hi bboschert,

Try posting on the project newsgroup as this one is trying to close down :)
Please see FAQ Item: 24. Project Newsgroups. FAQs, companion products and
other useful Project information can be seen at this web address:
http://www.mvps.org/project/.

Mike Glen
Project MVP

Post by John

Post by bboschert
Hello everyone. I am looking for a quick way to autofit all the
columns within a Project table. Does anyone know if there is a menu
option or hotkey that will adjust ALL columns, at once, to display
all the text they may contain?

bblschert,
Sorry, there isn't an autofit command in Project. However the
Sub ColFit()
SelectAll
Cols = ActiveSelection.FieldNameList.Count
For i = 1 To Cols
ColumnBestFit i
Next i
End Sub
By the way, this newsgroup is going away (supposedly). Please go to
http://www.mvps.org/project/faqs.htm
and see FAQ 24 - Project Newsgroups
Hope this helps.
John
Project MVP