Что нового

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

Norm

Знающий
Сообщения
117
Репутация
15
Наверняка каждый сталкивался с такой ситуацией, когда не все столбцы влезают на одну страницу 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

Скриптер
Сообщения
603
Репутация
197
Код:
$oWorkbook.ActiveSheet.VPageBreaks(1).DragOff(-4161, 1)
 
  • Like
Реакции: Norm
Автор
N

Norm

Знающий
Сообщения
117
Репутация
15
Tempo, спасибо, что откликнулись.
Я проверил у себя, но ничего не происходит.

Из поиска в интернете понял, что это в таком виде на Autoit работать не будет.
Однако решение всё же нашлось. Может кому-то ещё пригодится
Код:
$oWorkbook.ActiveSheet.PageSetup.Zoom = False

Источник: https://www.autoitscript.com/forum/topic/179332-how-to-adapt-vpagebreakdragoff-method-excel/
 
Последнее редактирование:
Верх