Отступы документа в Excel через макрос VBA Visual Basic

07.02.2016

Макрос для изменения отступов в документе excel на Листе, на котором запущен макрос. Регулирование отступов происходит через значения в скобках. Мои стандартные параметры ниже:

Sub Macros
'
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.2)
.RightMargin = Application.InchesToPoints(0.2)
.TopMargin = Application.InchesToPoints(0.4)
.BottomMargin = Application.InchesToPoints(0.4)
.HeaderMargin = Application.InchesToPoints(0.1)
.FooterMargin = Application.InchesToPoints(0.1)
End With
End Sub

Можно дополнить им любой макрос или оставить самостоятельным.