Sub setcolumnwidthmm (colno as long, mmwidth as integer) ' changes the column width to mmwidth dim w as single if colno 255 then exit sub applicationscreenupdating = false w = applicationcentimeterstopoints (mmwidth / 10) while columns (colno 1)left columns (colno)left 01 > w columns (colno)columnwidth = columnsColumn width isn't measured in points, centimeters or inches Excel measures column width units based on the size (width) of the font you use in the Normal style (for example, Calibri 11) Therefore, 1 unit of column width is equal to 1 character of the Normal style font Consider the followingOpen the "Column Width" dialog again, change 254cm to 24mm, press Enter, then the width of all selected column becomes 24 mm;
Vba Convert Centimeters Inches Pixels To Points Excel Off The Grid
