Application.ColumnBestFit method (Project)
Sets the width of a column to the width of its widest item.
expression A variable that represents an Application object.
|Column||Optional||Long||A number that specifies the column to adjust. Columns are numbered from left to right, starting with 1. If Column is omitted, Project adjusts the width of the column that contains the active cell.|
The following example adjusts the widths of the first five columns in the active table.
Sub BestFitFirstFiveCols() Dim I As Integer ' Index used in For...Next loop. For I = 1 To 5 ColumnBestFit Column:=I Next I End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.