我们致力于为大家奉献最有效的经验，让大家能够解决掉问题，但是大家也都知道，每个人遇到的情况都是不一样的，大家在看经验的同时，除了跟随操作，也需要自己的思考，举一反三的解决问题，这样才会变得更加有内涵，一起成长为一样的经验达人。根据二八定律，学好这excel VBA，就能完成80%的工作。每天学习一点Excel VBA知识点，我们一起共同进步。
我们在一般情况下单元格的行高列宽都是以磅为单位进行设置的，也可以使用英寸和厘米计量单位设置单元格的行高列宽，如下面的代码 所示。
#001 Sub RngToPoints()
#002 With Range("A1")
#003 .RowHeight = Application.CentimetersToPoints(2)
#004 .ColumnWidth = Application.CentimetersToPoints(1.5)
#005 End With
#006 With Range("A2")
#007 .RowHeight = Application.InchesToPoints(1.2)
#008 .ColumnWidth = Application.InchesToPoints(0.3)
#009 End With
#010 End Sub
代码解析：
RngToPoints过程以英寸和厘米计量单位设置单元格的行高列宽。
第3、4行代码使用CentimetersToPoints方法以厘米为计量单位设置A1单元格的行高列宽。CentimetersToPoints方法将计量单位从厘米转换为磅（一磅等于 0.035 厘米），语法如下：
expression.CentimetersToPoints(Centimeters)
参数expression是必需的，返回一个Application对象。
参数Centimeters是必需的，指定要转换为磅值的厘米值。
第5、6行代码使用InchesToPoints方法以英寸为计量单位设置A2单元格的行高列宽。InchesToPoints方法将计量单位从英寸转换为磅，语法如下：
expression.InchesToPoints(Inches)
参数expression是必需的，返回一个Application对象。
参数Inches是必需的，指定要转换为磅值的英寸值。
运行RngToPoints过程结果如图 11‑6所示。
灵活设置单元格的行高列宽
如果你在工作中还需要设计其他的表格模板，都可以留言，我们会根据大家需求来整理相关的学习资料，目的只有一个，那就是学好Excel，提高工作效率！