Выделение листов в Excell - VB

Формулировка задачи:

Необходимо выделить n-ое количество листов и выставить у них свайства PageSetup

Решение задачи: «Выделение листов в Excell»

textual
                            Листинг программы 
                        

                            Dim oI <font color="blue">As</font> Worksheet 
<br><font color="blue">For</font> Each oI In oEx.Worksheets 
<br><font color="blue">With</font> oI.PageSetup 
<br>.Orientation = xlLandscape 
<br>.LeftMargin = oEx.InchesToPoints(<b><font color="darkblue">0</font></b>.<b><font color="darkblue">354330708661417</font></b>) 
<br>.RightMargin = oEx.InchesToPoints(<b><font color="darkblue">0</font></b>.<b><font color="darkblue">354330708661417</font></b>) 
<br>.TopMargin = oEx.InchesToPoints(<b><font color="darkblue">0</font></b>.<b><font color="darkblue">393700787401575</font></b>) 
<br>.BottomMargin = oEx.InchesToPoints(<b><font color="darkblue">0</font></b>.<b><font color="darkblue">393700787401575</font></b>) 
<br><font color="blue">End</font> <font color="blue">With</font> 
<br><font color="blue">Next</font> oI
                        