Как обновить разрывы страниц на Excel-листе?

Скрипт · Регистрация: 15.09.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте.
В этой теме под масштабом подразумевается (Excel 2013):
вкладка "Разметка страницы" - группа "Параметры страницы" - справа маленькая стрелочка - откроется окно - в этом окне вкладка "Страница".

С помощью макроса изменяю масштаб, но разрывы страницы не изменяют своего положения.
Как можно обновить разрывы страниц с помощью макроса?

Например, делаю вручную масштаб 85%, разрывы страницы занимают положение.
Делаю масштаб 85% с помощью макроса - разрывы страниц остаются на своих местах.

@pashulka · 18.09.2014, 18:00

Скрипт, Если нужен костыль, то :

Visual Basic
1
2
3
ActiveWindow.View = xlNormalView
ActiveSheet.PageSetup.Zoom = 80
ActiveWindow.View = xlPageBreakPreview

При желании, можно "скрыть" ненужные мелькания на экране, т.е.

Visual Basic
1
2
3
4
5
6
7
Application.ScreenUpdating = False
 
ActiveWindow.View = xlNormalView
ActiveSheet.PageSetup.Zoom = 80
ActiveWindow.View = xlPageBreakPreview
 
Application.ScreenUpdating = True

@mc-black · 18.09.2014, 18:13

pashulka, переключения режимов я предлагал в 10 посте, но Скрипт пишет, что это не работает.

@pashulka · 18.09.2014, 18:42

mc-black, Своим глазам я привык доверять больше

в том смысле, что на всякий случай, протестировал в XL2002 и XL2007 и усё работает.

Скрипт · 18.09.2014, 18:46 **[ТС]**

pashulka, да, в "Excel 2007" переключение видов работает, а в "Excel 2010 и 2013" не работает.

@pashulka · 18.09.2014, 19:04

Скрипт, Не вопрос, ибо благодаря mc-black, для версий 2010-2013 решение уже было найдено :

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Test()
    If Val(Application.Version) >= 14 Then
        Application.PrintCommunication = False
        ActiveSheet.PageSetup.Zoom = 80
        Application.PrintCommunication = True
    Else
        ActiveWindow.View = xlNormalView
        ActiveSheet.PageSetup.Zoom = 80
        ActiveWindow.View = xlPageBreakPreview
    End If
End Sub

@ikki · 18.09.2014, 23:17

а если просто сохранить файл в макросе, не закрывая/открывая его?

@Step_UA · 19.09.2014, 19:44

все намного проще

Visual Basic
1
2
    ActiveSheet.PageSetup.Zoom = 80
    ActiveSheet.PageSetup.PaperSize = ActiveSheet.PageSetup.PaperSize

Скрипт · 19.09.2014, 19:48 **[ТС]**

Step_UA, в "Excel 2013" такое не помогает (в других версиях не пробовал).

@Step_UA · 19.09.2014, 19:50

может у вас уже было установленно 80%?
Проверял на 2003, 2007 и 2013

Скрипт · 19.09.2014, 19:53 **[ТС]**

Step_UA, скачал свой файл из сообщения #20 и запустил Ваш макрос.

@Step_UA · 19.09.2014, 20:27

Скрипт, не поленился (миниатюра не соответствует содержимому - нажмите для просмотра)

Скрипт · 19.09.2014, 20:31 **[ТС]**

Step_UA, Вы обновления ставите на Windows? Вместе с обновлениями Windows ставятся обновления для MS Office. И ещё у меня Windows 7.

@Step_UA · 19.09.2014, 20:38

Обновления не устанавливаются, винда 7 х64
... также работает на ХР в 2003 и 2007

Скрипт · 19.09.2014, 20:41 **[ТС]**

Step_UA, у меня Windows x86 и устанавливаю обновления. Значит у нас не полностью одинаковая ситуация.

@Step_UA · 19.09.2014, 20:47

у меня эксель 32 битный, можно проверить еще на виртуалке, но лучше проверить на других машинах

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,578

	Как обновить разрывы страниц на Excel-листе? 17.09.2014, 19:43. Показов 9961. Ответов 34 Метки нет (Все метки) Здравствуйте. В этой теме под масштабом подразумевается (Excel 2013): вкладка "Разметка страницы" - группа "Параметры страницы" - справа маленькая стрелочка - откроется окно - в этом окне вкладка "Страница". С помощью макроса изменяю масштаб, но разрывы страницы не изменяют своего положения. Как можно обновить разрывы страниц с помощью макроса? Например, делаю вручную масштаб 85%, разрывы страницы занимают положение. Делаю масштаб 85% с помощью макроса - разрывы страниц остаются на своих местах. 0

@mc-black 2787 / 719 / 106 Регистрация: 04.02.2011 Сообщений: 1,443
	18.09.2014, 18:13
	pashulka, переключения режимов я предлагал в 10 посте, но Скрипт пишет, что это не работает. 0

@pashulka 4139 / 2243 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	18.09.2014, 18:42
	mc-black, Своим глазам я привык доверять больше в том смысле, что на всякий случай, протестировал в XL2002 и XL2007 и усё работает. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,578
	18.09.2014, 18:46 [ТС]
	pashulka, да, в "Excel 2007" переключение видов работает, а в "Excel 2010 и 2013" не работает. 0

@ikki призрак 3266 / 894 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	18.09.2014, 23:17
	а если просто сохранить файл в макросе, не закрывая/открывая его? 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,578
	19.09.2014, 19:48 [ТС]
	Step_UA, в "Excel 2013" такое не помогает (в других версиях не пробовал). 0

@Step_UA 1591 / 664 / 225 Регистрация: 09.06.2011 Сообщений: 1,334
	19.09.2014, 19:50
	может у вас уже было установленно 80%? Проверял на 2003, 2007 и 2013 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,578
	19.09.2014, 19:53 [ТС]
	Step_UA, скачал свой файл из сообщения #20 и запустил Ваш макрос. 0

@Step_UA 1591 / 664 / 225 Регистрация: 09.06.2011 Сообщений: 1,334
	19.09.2014, 20:27
	Скрипт, не поленился (миниатюра не соответствует содержимому - нажмите для просмотра) Миниатюры 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,578
	19.09.2014, 20:31 [ТС]
	Step_UA, Вы обновления ставите на Windows? Вместе с обновлениями Windows ставятся обновления для MS Office. И ещё у меня Windows 7. 0

@Step_UA 1591 / 664 / 225 Регистрация: 09.06.2011 Сообщений: 1,334
	19.09.2014, 20:38
	Обновления не устанавливаются, винда 7 х64 ... также работает на ХР в 2003 и 2007 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,578
	19.09.2014, 20:41 [ТС]
	Step_UA, у меня Windows x86 и устанавливаю обновления. Значит у нас не полностью одинаковая ситуация. 0

@Step_UA 1591 / 664 / 225 Регистрация: 09.06.2011 Сообщений: 1,334
	19.09.2014, 20:47
	у меня эксель 32 битный, можно проверить еще на виртуалке, но лучше проверить на других машинах 0