本示例将工作表 Sheet1 的第三行行高设置为10磅。

With Worksheets("Sheet1").Rows(3)

    .RowHeight = 10

End With