Excel中利用VBA设置列宽和行高

来源:转载

如果要用VBA来设置区域的行高和列宽,可以用Range.ColumnWidth 属性和Range.RowHeight 属性,例如下例将选定的区域中各单元格的列宽和行高调整为指定的数值:

Sub SetColumnAndRow()

With ActiveWindow.RangeSelection

.ColumnWidth = 3

.RowHeight = 19

End With

End Sub

如果要将选定区域内的各单元格的列宽和行高调整为最合适的值,可以用下面的代码:

Sub SetColumnAndRow()

With ActiveWindow.RangeSelection

.Columns.AutoFit

.Rows.AutoFit

End With

End Sub

下面的代码将活动工作表中的所有单元格的行高和列宽恢复为默认值:

Sub SetDefault()

With ActiveSheet

.Columns.ColumnWidth = .StandardWidth

.Rows.RowHeight = .StandardHeight

End With

End Sub

分享给朋友:
您可能感兴趣的文章:
随机阅读: