Измените размеры Excel Windows на половину экрана

У меня 4 Excel Windows:

  • Microsoft Visual Basic для приложений — PERSONAL.XLSB [break ]

  • Рабочая тетрадь1

  • Рабочая тетрадь2

  • Workbook3

Я хочу изменить размеры моих окон таким образом:

  • VBA будет иметь следующий вид: Высота = 100% от высоты моего компьютера, Ширина = 50%, половина ширины моего компьютера и положение окна должно быть справа.

  • Рабочие книги 1–3 будут иметь следующий вид: Высота = 100% от высоты моего компьютера, Ширина = 50%, половина ширины моего компьютера, а положение окна должно быть с левой стороны.

** Думаю, для доступа к Microsoft Visual Basic для приложений — PERSONAL.XLSB [обрыв] Мне нужна ссылка на системную библиотеку Windows, но я считаю, что это должно быть возможно

Есть идеи, пожалуйста?


Вы можете попробовать следующий код:

  Sub ChangeWindowSize () 'получить размер как  creen Application.WindowState = xlMaximized windWidth = Application.width windHeight = Application.height 'устанавливает размер и расположение основной книги Application.WindowState = xlNormal Application.Top = 0 Application.Left = 0 Application.width = windWidth/2 Application.height  = windHeight Вызов OpenOtherWorkBookAndSetSize (windWidth, windHeight) Конец SubSub OpenOtherWorkBookAndSetSize (windWidth в качестве варианта, windHeight в качестве варианта) Dim appExcel As Application Dim objWorkbook As Workbook Dim i As Integer 'create new excel application object' Установить приложение appExcel другое  = appExcel.Workbooks.Open ("путь к файлу") 'просто пример настройки appExcel.WindowState = xlNormal appExcel.Top = 0 appExcel.Left = windWidth/2 appExcel.width = windWidth/2 appExcel.height = windHeight appExcel.Visible  = TrueEnd Sub  

Он разделит ваш экран пополам 🙂 Теперь вы можете изменить этот код дальше 🙂

Пример результата:

2


Май это поможет вам.

  Sub SetWindowSize1 () Application.WindowState = xlNormal Application.Top = 25 Application.Left = 25 Application.Width = 300 Application.Height = 200End Sub   

И чтобы установить ширину и высоту окна в соответствии с размером экрана, вы можете увидеть здесь код: https://www.ozgrid.com/forum/index.php? thread/142634-vba-to-automatic-resize-user-form-зависимо от разрешения экрана/

Код для циклического просмотра окон VBA:

  Sub ListWindows () Dim wn As Excel.WindowFor Each wn In Application.Windows MsgBox wn. CaptionNext wnEnd Sub  

1



Как перемещать Windows окно (Excel), которое находится за пределами экрана, но * не * реагирует на [Alt] + [Space]?

Обычно к моему ноутбуку подключено до 2-х мониторов, поэтому, когда я просыпаю его без эти мониторы, есть большая вероятность, что некоторые окна будут за пределами экрана.

Обычно я могу сделать

  1. Выбрать программу на панели задач
  2. [Alt] + [Space]
  3. [m] (я полагаю, для ‘Move’)
  4. клавиши со стрелками

трюк для перемещения окна, но сейчас он не сработает .

Я считаю, что у него может быть что-то делать с окном «Мастер активации MicroSoft Office», которое появляется над главным окном.

Как я могу справиться с этой ситуацией?


Хорошо, на самом деле , прямо перед тем, как опубликовать это, я хотел исследовать это еще раз. Я нашел ответ и размещаю его ниже. … голосовать не нужно. Я просто помещаю это здесь на случай, если кто-то еще столкнется с этой проблемой.

Изменить: я принимаю ответ Скотта, так как хочу отдать ему должное за ответ, который мог применить с учетом проблемы, как описано в моем вопросе, но , пожалуйста, также прочтите мой ответ , так как он также может применяться (и в моем случае это было применить.)

(tl; dr: Если у вас есть эта проблема, попробуйте оба ответа Скотта и мой ответ.)


Другая причина, по которой Alt + Space , M может не работать, заключается в том, что окно может быть развернуто . Попробуйте Alt + Пробел , R , чтобы восстановить (развернуть) его, а затем переместите.


Окно «Мастер активации MicroSoft Office» действительно было проблемой.

Оно:

  • берет на себя фокус из главного окна Excel (или Word, или PowerPoint и т. д.) через секунду или две, а
  • не имеет собственного разместить на панели задач, вместо того, чтобы занять значок на панели задач, что сделало невозможным выбрать главное окно

Решением было добавить нажатие [c], для кнопки «закрыть» в этом окне, перед шагом [Alt] + [Пробел] в обычном процессе перемещения внеэкранных окон..

Итак, если вы обнаружите, что не можете переместить внеэкранное окно MS Office (а ваши окна обычно имеют красную верхнюю панель):

  1. Выберите программу на панели задач.
  2. [c]
  3. [Alt] + [Пробел]
  4. [m]
  5. клавиши со стрелками для перемещения окна

Мой универсальный метод для неправильного поведения окна — использование Windows + СТРЕЛКА ВВЕРХ для максимизации на текущем экране (или стрелку влево или вправо, если это ваш стиль), а затем потянув его за строку заголовка, таким образом, снова переключившись в оконный режим, а затем переместив его в желаемое место.

1


В Microsoft Excel есть ошибка, которая иногда оставляет окно, отображаемое за пределами экрана, где вы не можете дотянуться до верхней части окна переместить его б в поле зрения. Часто это можно исправить, перейдя в меню «Просмотр» в Excel, щелкнув «Упорядочить все», а затем переключив способ расположения окон. Если он находится в «Плиточном», попробуйте «Горизонтальный» или переключите его в другой режим. Кажется, не имеет значения, что это было или что вы изменили, но этот акт изменения расположения окон обычно устраняет беспорядок и возвращает окно в полный обзор.

Оцените статью
clickpad.ru
Добавить комментарий