Установить высоту строки и ширину столбца в миллиметрах

Приведенный ниже макрос позволяет вам устанавливать высоту строк и ширину столбцов, используя миллиметры в качестве шкалы:

Sub SetColumnWidthMM(ColNo As Long, mmWidth As Integer)

' changes the column width to mmWidth

Dim w As Single

If ColNo < 1 Or ColNo > 255 Then Exit Sub

Application.ScreenUpdating = False

w = Application.CentimetersToPoints(mmWidth / 10)

While Columns(ColNo + 1).Left - Columns(ColNo).Left - 0.1 > w

Columns(ColNo).ColumnWidth = Columns(ColNo).ColumnWidth - 0.1

Wend

While Columns(ColNo + 1).Left - Columns(ColNo).Left + 0.1 < w

Columns(ColNo).ColumnWidth = Columns(ColNo).ColumnWidth + 0.1

Wend

End Sub

Sub SetRowHeightMM(RowNo As Long, mmHeight As Integer)

' changes the row height to mmHeight

If RowNo < 1 Or RowNo > 65536 Then Exit Sub

Rows(RowNo).RowHeight = Application.CentimetersToPoints(mmHeight / 10)

End Sub

В этом примере макроса показано, как установить высоту строки для строки 3 и ширину столбца для столбца C равной 3,5 см:

Sub ChangeWidthAndHeight()

SetColumnWidthMM 3, 35

SetRowHeightMM 3, 35

End Sub