本示例将工作表 Sheet1 的第三行行高设置为10磅。
With Worksheets("Sheet1").Rows(3)
.RowHeight = 10
End With