Application.ColumnBestFit method (Project)

Sets the width of a column to the width of its widest item.


expression. ColumnBestFit( _Column_ )

expression A variable that represents an Application object.


Name Required/Optional Data type Description
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.

Return value



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.