Удалить автоматические разрывы страниц в VBA

Question

Кто-нибудь знает, можно ли удалить автоматические разрывы страниц в Excel VBA?Я наконец нашел статью, в которой говорится, что вы не можете, но я хотел бы подтвердить.Я немного разочарован, что это не может быть достигнуто в VBA.

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

For nCtr = 1 To ActiveSheet.HPageBreaks.Count
    ActiveSheet.HPageBreaks(1).DragOff Direction:=xlUp, RegionIndex:=1
Next

For nCtr = 1 To ActiveSheet.VPageBreaks.Count
    ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
Next

Мысли?

Answer 1

Я думаю, что единственный способ, которым вы можете "контролировать" автоматические разрывы страниц, - это изменение свойств PageSetup и ширины столбцов \ строк.

With ActiveSheet.PageSetup
    .Zoom = False
    .FitToPagesWide = 1 'Set with to 1 page
    .FitToPagesTall = False 'Set height to Automatic
End With

Rows(1).RowHeight = 32
Columns(1).ColumnWidth = 25