Страницы: 1
RSS
Как кодом определить диапазон чистой страницы
 
Приветствую.
Имеем чистый лист Excel с установленными параметрами - ориентация, поля.
При переходе в режим разметки видим диапазон страницы.
Вопрос - как кодом определить этот диапазон? Куда порыть?
Итоговая задача - вставить картинки (1 картинка на 1 страницу).
 
Думаю рыть в сторону "установить диапазон печати с запасом":
Код
ActiveSheet.PageSetup.PrintArea = "A1:AA500"
а потом определять границы страниц.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Дима, спасибо.
Я накидал костыль
Код
Sub костыль()
    Cells(1).Resize(60, 60) = 1
    ySize = ActiveSheet.HPageBreaks(1).Location.Top - Cells(1).Top
    xSize = ActiveSheet.VPageBreaks(1).Location.Left - Cells(1).Left
    ActiveSheet.UsedRange.Clear
    Debug.Print "ySize   " & ySize
    Debug.Print "xSize   " & xSize
End Sub

Но,  PrintArea, безусловно, куда лучше.
Код
Sub ClearPageSize()
    ActiveSheet.PageSetup.PrintArea = "A1:AA500"
    ySize = ActiveSheet.HPageBreaks(1).Location.Top - Cells(1).Top
    xSize = ActiveSheet.VPageBreaks(1).Location.Left - Cells(1).Left
    Debug.Print "ySize   " & ySize
    Debug.Print "xSize   " & xSize
    ActiveSheet.PageSetup.PrintArea = ""
End Sub
Страницы: 1
Наверх