Как исправить «Ошибка 1004 во время выполнения, метод« Ширина »объекта« _Application »не удалось»

Question

У меня есть код, который должен управлять размером отображения рабочей книги Excel при открытии приложения и выбирать конкретную рабочую таблицу в этой рабочей книге.Надежда заключалась в том, чтобы сохранить как можно больше рабочего стола для других окон / приложений.Две рабочие таблицы в рабочей книге защищены, одна из них - рабочая таблица, которую я хочу отобразить при открытии файла.однако я не верю, что рабочий лист должен быть незащищенным для изменения размера окна приложения.Я добавил эту информацию, потому что ты умнее меня.Я создал этот код на вкладке разработчика, а затем выбрал «Запись макроса».Первоначально это работало нормально, однако у меня начались проблемы, когда я представил свою рабочую книгу клиенту, и у них уже были открыты другие файлы Excel.Теперь иногда я получаю сообщение об ошибке ниже, когда открываю только один файл Excel, содержащий этот макрос.Когда я открываю файл, я получаю «Ошибка времени выполнения:« 1004 »: метод« Ширина »объекта« Приложение »не удалось».

Я использую Excel 2016. Я думаю, что проблему можно решить, еслифайл выбирается первым или выводится на первый план первым, но я не знаю, как это сделать (пока), и я всю неделю пытался найти / найти решение.

Спасибо запотратив время на рассмотрение этого вопроса.

После некоторых подобных проблем, найденных здесь, я попытался изменить эту строку кода с:

Application.Width = 677.25

на:

Application.ThisWorkbook.Width = 677.25

и это ошибки.(Ошибка времени выполнения '438': объект не поддерживает свойство или метод)

Код / макрос находится в файле "ThisWorkbook" (в VBAProject, в объектах Excel).

Private Sub Workbook_Open()
    Application.Width = 677.25
    Application.Height = 663
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
    Application.Width = 641.25
    Application.Height = 468
    Sheets("Watch").Select
End Sub

Цель этого кода состояла в том, чтобы изменить размер отображения файла при его открытии и обеспечить отображение листа "Смотреть".

Answer 1

Добавьте Application.WindowState = xlNormal перед использованием Application.Width или Application.Height.

Вы не можете изменить размер окна приложения Excel, если оно развернуто.

Если ваш Excelсвернуто, и верно следующее: Application.WindowState = xlMinimized, установка ширины или высоты не вызовет ошибок, но также не повлияет на размер окна, даже если впоследствии вы вручную измените отображение с свернутого на нормальное.