Метод 'Подсчет' объекта 'HPageBreaks' не удался - PullRequest
Новая
       7

Метод 'Подсчет' объекта 'HPageBreaks' не удался

0 голосов
/ 19 сентября 2018

У меня проблема с MS Excel VBA на HPageBreaks.Sheets («Temp»). HPagesBreaks.Count работает нормально, когда я запускаю код построчно в тестировании.Но когда я попытался запустить полный код, мой Excel зависает, и при попытке закрыть Excel появляется всплывающее сообщение об ошибке.

Пару лет назад возник подобный вопрос, предлагая активировать Sheets ("Temp") перед подсчетом метода.Я пробовал Sheets («Temp»). Активируйте перед HPageBreaks.Count, но в моем сценарии это не работает.

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

Do Until ((xWMax > 600 And xWMax <= 680) Or xH > 600) And Sheets("Temp").HPageBreaks.Count = 0
If Sheets("Temp").HPageBreaks.Count > 0 Then
    ....
End If

Петля

1 Ответ

0 голосов
/ 20 сентября 2018

Вопрос теперь решается путем активации других листов и повторных активных листов («Temp») перед тем, как каждый HPageBreaks.Count устранит ошибку.Application.ScreenUpdate должен быть установлен в False

...