PAGESETUP

[DIKI]

Есть куча листов в Wookbooks необходимо у каждого из них изменить ориентацию и еще несколько параметров если в цикле у каждого Sheet менять их это занимает очень много времени
Как можно эту задачу побыстрее решить?

[alibek]

Выделяешь несколько листов (удерживая Ctrl) и меняешь

[DIKI]

Я имел ввиду как это программно сделать

[DIKI]

Вот такой код очень долго выполняется если в книге листов 20 например
Вопрос и состоит в том как теже действия сделать побыстрее.

Dim oI As Worksheet
For Each oI In oEx.Worksheets
With oI.PageSetup
.Orientation = xlLandscape
.LeftMargin = oEx.InchesToPoints(0.354330708661417)
.RightMargin = oEx.InchesToPoints(0.354330708661417)
.TopMargin = oEx.InchesToPoints(0.393700787401575)
.BottomMargin = oEx.InchesToPoints(0.393700787401575)
End With
Next oI

[GSerg]

Может, перед этим действием отключать обновление экрана?

Код: Выделить всё

application.screenupdating=false

а потом включать?

[alibek]

Если надо программно, то делай программно

Код: Выделить всё

Sheets(Array("Лист1", "Лист2", "Лист3")).Select
With ActiveSheet.PageSetup
  .LeftMargin = Application.InchesToPoints(0.78740157480315)
  .RightMargin = Application.InchesToPoints(0.78740157480315)
  .TopMargin = Application.InchesToPoints(0.78740157480315)
  .BottomMargin = Application.InchesToPoints(0.78740157480315)
  .HeaderMargin = Application.InchesToPoints(0.511811023622047)
  .FooterMargin = Application.InchesToPoints(0.511811023622047)
End With


[DIKI]

То что Вам Excel записал в макросе неправильно, если выполнить этот код изменятся параметры только активного листа а надо чтоб всех.

[DIKI]

Меня интересует вообще глобально можно ли в PageSetup передать структуру заранее заполненную(со всеми полями т.е. чтоб в ней было Orientation,.LeftMargin,.RightMargin и т.д.) а затем дать команду применить?
Когда выполняешь такой код
.Orientation = xlLandscape
.LeftMargin = oEx.InchesToPoints(0.354330708661417)
.RightMargin = oEx.InchesToPoints(0.354330708661417)
.TopMargin = oEx.InchesToPoints(0.393700787401575)
.BottomMargin = oEx.InchesToPoints(0.393700787401575)
Это заметнее медленее чем если бы я в диалоговом окне PageSetup задал эти же параметры и нажал кнопку OK.

[DIKI]

2GSerg
У меня объект экселя невидимый, но я по пробовал всеравно поставить ScreenUpdating = False эфекта нет:(

[Vitaly1]

Я не знаю, что по твоим понятием долго, но этот програмный код, на 20 листах выполняется 14 секунд:

Код: Выделить всё

Sub fffff()
Dim i As Long
For i = 1 To Worksheets.Count
Worksheets(i).Activate
With ActiveSheet.PageSetup
  .LeftMargin = Application.InchesToPoints(0.78740157480315)
  .RightMargin = Application.InchesToPoints(0.78740157480315)
  .TopMargin = Application.InchesToPoints(0.78740157480315)
  .BottomMargin = Application.InchesToPoints(0.78740157480315)
  .HeaderMargin = Application.InchesToPoints(0.511811023622047)
  .FooterMargin = Application.InchesToPoints(0.511811023622047)
End With

Next i

End Sub

[Vitaly1]

А так можно еще чуть-чуть побыстрее, но надо знать точно количество листов, и поэтому нужноли огород городить:


Sub fffff()
dim s as string
s = "0102030405060708091011121314151617181920"
While s <> ""
Worksheets(CInt(Mid(s, 1, 2))).Activate
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.78740157480315)
.BottomMargin = Application.InchesToPoints(0.78740157480315)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
End With
s = Mid(s, 3)
Wend
End Sub

[DIKI]

14 секунд это много и если учесть что бывают и маломощные машины.
Притом что в принципе я ничего такого не делаю только изменяю параметры страницы и это занимает так много времени

[Vitaly1]

А параметры страницы листа задаются для пустых листов?
Может быть будет быстрее задать параметры для первого листа и сделать 19 копий?

[DIKI]

Да я так и сделал
Спасибо за помощь