Подскажите пожалуйста, записал процедуру на изменение полей ячеек в таблице.
Но работает для всех ячеек. А как сделать так, чтобы изменялись поля только выделенных ячеек?
With Selection.Tables(1)
.TopPadding = CentimetersToPoints(0.05)
.BottomPadding = CentimetersToPoints(0.05)
.LeftPadding = CentimetersToPoints(0.05)
.RightPadding = CentimetersToPoints(0.05)
.Spacing = 0
.AllowPageBreaks = True
.AllowAutoFit = True
End With
Макрос
Sub Макрос()
Dim cel As Cell
' Отключение монитора (может это ускорит работу макроса).
Application.ScreenUpdating = False
For Each cel In Selection.Cells
With cel
.TopPadding = CentimetersToPoints(0.05)
.BottomPadding = CentimetersToPoints(0.05)
.LeftPadding = CentimetersToPoints(0.05)
.RightPadding = CentimetersToPoints(0.05)
End With
Next cel
' Включение монитора.
Application.ScreenUpdating = True
End Sub
Круто! Большое спасибо!
А подскажите еще по теме пожалуйста - как получить значение .TopPadding ?
Например, что-то типа того: x=Selection.Cells.TopPadding (не работает, конечно, но как проверить, какое значение имеет TopPadding в конкретной ячейке?)
Верхнее поле первой ячейки в выделенном фрагменте:
x=Selection.Cells(1).TopPadding
Спасибо!