Excel, Убрать вертикальный разрыв страницы

[Norm]

Наверняка каждый сталкивался с такой ситуацией, когда не все столбцы влезают на одну страницу Excel.
Ширину столбцов выставлять не получится, поскольку текст уже не будет полностью виден.
Простой вариант, просто передвинуть разрыв.
С макрокодером получается всего одна строка, но как её прикрутить в скрипт не разберусь.

Sub Makro1()
       ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
End Sub

Пробовал различные интерпритации указанного ниже кода, но ничего не получается

With $oWorkbook.ActiveSheet
           .ActiveSheet.VPageBreaks(1).DragOff .Direction=-4161 ; .RegionIndex=1
EndWith

 

[Tempo]

$oWorkbook.ActiveSheet.VPageBreaks(1).DragOff(-4161, 1)

 

[Norm]

Tempo, спасибо, что откликнулись.
Я проверил у себя, но ничего не происходит.

Из поиска в интернете понял, что это в таком виде на Autoit работать не будет.
Однако решение всё же нашлось. Может кому-то ещё пригодится

$oWorkbook.ActiveSheet.PageSetup.Zoom = False

Источник: https://www.autoitscript.com/forum/topic/179332-how-to-adapt-vpagebreakdragoff-method-excel/