Excel VBA:设置行高与列宽

Range.RowHeight 属性

以磅 （磅：指打印的字符的高度的度量单位。1 磅等于 1/72 英寸，或大约等于 1 厘米的 1/28。）为单位返回或设置指定区域中所有行的行高。如果指定区域中的各行的行高不等，则返回 null。Variant 类型，可读写。

语法

表达式.RowHeight

表达式   一个代表 Range 对象的变量。

说明

可使用 Height 属性返回整个单元格区域的高度。

以下是 RowHeight 和 Height 的不同之处：

• Height 为只读。
• 如果要返回几行的 RowHeight 属性，可得到每一行的行高（如果所有的行等高），或得到 null（如果它们不等高）。如果要返回几行的 Height 属性，将得到所有行高的总和。

示例

本示例使工作表 sheet1 上第一行的行高加倍。

With Worksheets("Sheet1").Rows(1)
    .RowHeight = .RowHeight * 2
End With

Worksheet.StandardHeight 属性

以磅 （磅：指打印的字符的高度的度量单位。1 磅等于 1/72 英寸，或大约等于 1 厘米的 1/28。）为单位返回工作表中所有行的标准高度（默认值）。Double 类型，只读。

语法

表达式.StandardHeight

表达式   一个代表 Worksheet 对象的变量。

示例

本示例将 Sheet1 中的首行的行高设置为标准行高。 

Worksheets("Sheet1").Rows(1).RowHeight = _
    Worksheets("Sheet1").StandardHeight

Range.ColumnWidth 属性

返回或设置指定区域中所有列的列宽。Variant 类型，可读写。

语法

表达式.ColumnWidth

表达式   一个代表 Range 对象的变量。

说明

一个列宽单位等于“常规”样式中一个字符的宽度。对于比例字体，则使用字符 0（零）的宽度。

使用 Width 属性可返回以磅为单位的列宽。

如果区域中所有列的列宽都相等，ColumnWidth 属性返回该宽度值。如果区域中的列宽不等，该属性返回 null。

示例

本示例使工作表 Sheet1 上 A 列的列宽加倍。

With Worksheets("Sheet1").Columns("A")
    .ColumnWidth = .ColumnWidth * 2
End With

Worksheet.StandardWidth 属性

返回或设置工作表中所有列的标准列宽（默认值）。Double 类型，可读写。

语法

表达式.StandardWidth

表达式   一个代表 Worksheet 对象的变量。

说明

一个列宽单位等于“常规”样式中一个字符的宽度。对于比例字体，则使用字符 0（零）的宽度。

示例

本示例设置 Sheet1 中首列的列宽为标准列宽。

Worksheets("Sheet1").Columns(1).ColumnWidth = _
    Worksheets("Sheet1").StandardWidth

source: VBA Help