Закрепить появление UserForm2 точно под объектом UserForm1.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закрепить появление UserForm2 точно под объектом UserForm1. (Иное/Other)

damask_86ru

Дата: Пятница, 29.05.2015, 12:05 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 60

Репутация: 0 ±

Замечаний: 40% ±

Excel 2010

Всем привет!
В файле во вложении имеются две UserForm, UserForm1 открываем с листа нажимая на CommandButton1, а UserForm2 запускаем при клике на Label1 (расположена на UserForm1).
А вопрос вообщем то вот в чем, возможно ли как то закрепить появление UserForm2 точно под Label1? Т.е. при любом смещении по экрану UserForm1, UserForm2 открывалась точно под Label1.

К сообщению приложен файл: userform1.xls (49.0 Kb)

Ответить

_Boroda_

Дата: Пятница, 29.05.2015, 12:27 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Private Sub UserForm_Activate()
UserForm2.Left = UserForm1.Left
UserForm2.Top = UserForm1.Top + UserForm1.Height + 10
End Sub

[/vba]
10 - подбираете вручную
Там, правда, было бы неплохо добавить проверку на то, чтобы ЮФ2 не падала ниже границы окна. Поищите в интернете, там этого добра куча

К сообщению приложен файл: userform1_1.xls (42.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

damask_86ru

Дата: Пятница, 29.05.2015, 12:36 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 60

Репутация: 0 ±

Замечаний: 40% ±

Excel 2010

Спасибо за внимание!
Почти так), но не так...
На UserForm1 расположена Label1, вот к ней надо привязать UserForm2. Такое возможно, учитывая что Label1 находится в MultiPage?

Ответить

damask_86ru

Дата: Пятница, 29.05.2015, 12:40 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 60

Репутация: 0 ±

Замечаний: 40% ±

Excel 2010

Простите, я поспешил с ответом не разобравшись....
Все верно, там где +10 надо ставить минус и подгонять ее под Label1.
Спасибо Вам!

Ответить

damask_86ru

Дата: Пятница, 29.05.2015, 12:46 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 60

Репутация: 0 ±

Замечаний: 40% ±

Excel 2010

_Boroda_, вот что получилось.
Еще раз Вам СПАСИБО!

К сообщению приложен файл: 4708066.xls (40.5 Kb)

Ответить

_Boroda_

Дата: Пятница, 29.05.2015, 12:53 | Сообщение № 6

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

А, ну да. Почему-то подумал, что нужно ниже формы1
[vba]

Код

Private Sub UserForm_Activate()
UserForm2.Left = UserForm1.Label1.Left + UserForm1.Left + 7
UserForm2.Top = UserForm1.Top + UserForm1.Label1.Top + UserForm1.Label1.Height + 40
End Sub

[/vba]

К сообщению приложен файл: userform1_2.xls (43.5 Kb)

Ответить

damask_86ru

Дата: Пятница, 29.05.2015, 16:11 | Сообщение № 7

Группа: Пользователи

Ранг: Участник

Сообщений: 60

Репутация: 0 ±

Замечаний: 40% ±

Excel 2010

_Boroda_, еще раз Спасибо!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закрепить появление UserForm2 точно под объектом UserForm1. (Иное/Other)

Страница 1 из 1
1