Задание положение и размеров окна Excel

@ДмитрийVBA · Регистрация: 18.04.2013

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

Макрорекордер выдал такой код:

Visual Basic

Application.Left = 205
Application.Top = 44.5
Application.Width = 723.75
Application.Height = 535.5

Все работает прекрасно, НО(!), если окно Excel до запуска файла с макросом было полностью развернуто, то появлется ошибка (см. скрин).

Подскажите, пожалуйста, другой метод установки положения и размеров окна или как избавиться от этой ошибки.

@Pavel55 · 26.06.2013, 14:39

может

Visual Basic

on error resume next
 
' тут ваша установка размеров
 
on error goto 0

@аналитика · 26.06.2013, 14:41

Visual Basic

With Application
    .WindowState = xlNormal
    .Left = 205
    .Top = 44.5
    .Width = 723.75
    .Height = 535.5
End With

@ДмитрийVBA · 26.06.2013, 15:56 **[ТС]**

Сообщение от аналитика

Visual Basic

With Application
    .WindowState = xlNormal
    .Left = 205
    .Top = 44.5
    .Width = 723.75
    .Height = 535.5
End With

Почти! Ошибка теперь не возникает, но(!), если окно Excel было развернуто, то размеры не применяются: после открытия файла с данным макросом окно так и остается развернутым

Если ли команда, чтобы...как это называется..не свернуть, а...ну вот эта кнопка с двумя окошками слева от крестика..о боже, как стыдно %)

	26.06.2013, 15:56