Расположение новых окон файла - в определенных координатах
yl3d
Дата: Среда, 13.09.2017, 02:59 |
Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Доброе утро, уважаемые специалисты по ВБА. Помогите разобраться с проблемой. В экселе 2013 есть функция "Новое окно", которая позволяет расположить разные листы одного файла - в разных местах экрана. Так с ними намного удобнее работать. У меня есть макрос который создает три окна для одного файла (окна создаются для разных листов). Но есть проблема. Эти окна при создании накладываются друг на друга. Так что их приходится вручную распределять по экрану. Как назначить каждому из окон - свою координату расположения на мониторе с обозначением высоты-ширины окна ? (При создании - Первое окно должно получить координаты 100;150 и ширину-высоту 100;120. А Второе окно должно получить координаты 500;800 и ширину-высоту 200;140.)
Доброе утро, уважаемые специалисты по ВБА. Помогите разобраться с проблемой. В экселе 2013 есть функция "Новое окно", которая позволяет расположить разные листы одного файла - в разных местах экрана. Так с ними намного удобнее работать. У меня есть макрос который создает три окна для одного файла (окна создаются для разных листов). Но есть проблема. Эти окна при создании накладываются друг на друга. Так что их приходится вручную распределять по экрану. Как назначить каждому из окон - свою координату расположения на мониторе с обозначением высоты-ширины окна ? (При создании - Первое окно должно получить координаты 100;150 и ширину-высоту 100;120. А Второе окно должно получить координаты 500;800 и ширину-высоту 200;140.) yl3d
Ответить
Сообщение Доброе утро, уважаемые специалисты по ВБА. Помогите разобраться с проблемой. В экселе 2013 есть функция "Новое окно", которая позволяет расположить разные листы одного файла - в разных местах экрана. Так с ними намного удобнее работать. У меня есть макрос который создает три окна для одного файла (окна создаются для разных листов). Но есть проблема. Эти окна при создании накладываются друг на друга. Так что их приходится вручную распределять по экрану. Как назначить каждому из окон - свою координату расположения на мониторе с обозначением высоты-ширины окна ? (При создании - Первое окно должно получить координаты 100;150 и ширину-высоту 100;120. А Второе окно должно получить координаты 500;800 и ширину-высоту 200;140.) Автор - yl3d Дата добавления - 13.09.2017 в 02:59
Pelena
Дата: Среда, 13.09.2017, 08:43 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19603
Репутация:
4660
±
Замечаний:
±
Excel 365 & Mac Excel
Здравствуйте. А просто расположить рядом не вариант?
Здравствуйте. А просто расположить рядом не вариант? Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Здравствуйте. А просто расположить рядом не вариант? Автор - Pelena Дата добавления - 13.09.2017 в 08:43
yl3d
Дата: Среда, 13.09.2017, 15:34 |
Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Pelena, нет конечно - это не вариант. У меня несколько мониторов. И как эти окна - без указания координат можно разнести по нескольким мониторам ?
Pelena, нет конечно - это не вариант. У меня несколько мониторов. И как эти окна - без указания координат можно разнести по нескольким мониторам ? yl3d
Ответить
Сообщение Pelena, нет конечно - это не вариант. У меня несколько мониторов. И как эти окна - без указания координат можно разнести по нескольким мониторам ? Автор - yl3d Дата добавления - 13.09.2017 в 15:34
Manyasha
Дата: Среда, 13.09.2017, 15:43 |
Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация:
902
±
Замечаний:
0% ±
Excel 2010, 2016
yl3d , попробуйте так [vba]Код
With Application .Left = 100 .Top = 150 .Width = 100 .Height = 120 End With
[/vba] только ширина/высота какие-то маленькие.
yl3d , попробуйте так [vba]Код
With Application .Left = 100 .Top = 150 .Width = 100 .Height = 120 End With
[/vba] только ширина/высота какие-то маленькие.Manyasha
ЯД: 410013299366744 WM: R193491431804
Ответить
Сообщение yl3d , попробуйте так [vba]Код
With Application .Left = 100 .Top = 150 .Width = 100 .Height = 120 End With
[/vba] только ширина/высота какие-то маленькие.Автор - Manyasha Дата добавления - 13.09.2017 в 15:43
yl3d
Дата: Среда, 13.09.2017, 16:38 |
Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Manyasha, вот сделал такой код. Но он что-то не работает.
[vba]
Код
Sub Макрос1() Sheets("Лист2").Select ActiveWindow.NewWindow With Application .Left = 100 .Top = 150 .Width = 400 .Height = 400 End With Windows("3498765.xls:1").Activate Windows("3498765.xls:2").Activate Windows("3498765.xls:1").Activate Sheets("Лист3").Select ActiveWindow.NewWindow With Application .Left = 700 .Top = 600 .Width = 400 .Height = 400 End With Windows("3498765.xls:3").Activate Sheets("Лист1").Select End Sub
[/vba]
Manyasha, вот сделал такой код. Но он что-то не работает.
[vba]
Код
Sub Макрос1() Sheets("Лист2").Select ActiveWindow.NewWindow With Application .Left = 100 .Top = 150 .Width = 400 .Height = 400 End With Windows("3498765.xls:1").Activate Windows("3498765.xls:2").Activate Windows("3498765.xls:1").Activate Sheets("Лист3").Select ActiveWindow.NewWindow With Application .Left = 700 .Top = 600 .Width = 400 .Height = 400 End With Windows("3498765.xls:3").Activate Sheets("Лист1").Select End Sub
[/vba]
yl3d
Сообщение отредактировал yl3d - Среда, 13.09.2017, 16:38
Ответить
Сообщение Manyasha, вот сделал такой код. Но он что-то не работает.
[vba]
Код
Sub Макрос1() Sheets("Лист2").Select ActiveWindow.NewWindow With Application .Left = 100 .Top = 150 .Width = 400 .Height = 400 End With Windows("3498765.xls:1").Activate Windows("3498765.xls:2").Activate Windows("3498765.xls:1").Activate Sheets("Лист3").Select ActiveWindow.NewWindow With Application .Left = 700 .Top = 600 .Width = 400 .Height = 400 End With Windows("3498765.xls:3").Activate Sheets("Лист1").Select End Sub
[/vba]
Автор - yl3d Дата добавления - 13.09.2017 в 16:38