Проблемы с форматированием диаграммы / макета страницы - PullRequest
Новая
       5

Проблемы с форматированием диаграммы / макета страницы

0 голосов
/ 12 февраля 2020

У меня есть настройка vba, которая форматирует страницу для печати графиков. На моем экране VBA работает отлично, как показано ниже:

enter image description here

Но на больших экранах на других компьютерах форматирование не работает - графики разбиты по горизонтали страницы, подобные приведенным ниже: enter image description here

Есть идеи, как отформатировать страницу так, чтобы она работала на любом компьютере независимо от размера / разрешения?

Это код который создает страницу и устанавливает форматирование. 

Sub Format_step2_test()

    Dim OldSheet As Worksheet

    Set OldSheet = ActiveSheet

    Sheets.Add(After:=ActiveSheet).Name = "Graphs"
    ActiveWindow.View = xlPageLayoutView
    With ActiveSheet.PageSetup
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = False  'Will take as many pages as required based on other settings
    End With

    OldSheet.Activate


End Sub
...