Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Изменение размера формы - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение размера формы (Макросы/Sub)
Изменение размера формы
Darck Дата: Суббота, 23.01.2016, 21:53 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Доброго времени суток.
Прошу помочь.
При инициализации формы на ней создается несколько объектов CheckBox. Количество объектов может меняться.
У объекта UserForm есть свойства Height и Width. Но код ниже не работает.
[vba]
Код

    With UserForm1
        .Height = CommandButton3.Top + CommandButton3.Height + 6
        .Width = 142
    End With
[/vba]
Есть ли вообще какой-то способ изменять размер окна программно?
 
Ответить
СообщениеДоброго времени суток.
Прошу помочь.
При инициализации формы на ней создается несколько объектов CheckBox. Количество объектов может меняться.
У объекта UserForm есть свойства Height и Width. Но код ниже не работает.
[vba]
Код

    With UserForm1
        .Height = CommandButton3.Top + CommandButton3.Height + 6
        .Width = 142
    End With
[/vba]
Есть ли вообще какой-то способ изменять размер окна программно?

Автор - Darck
Дата добавления - 23.01.2016 в 21:53
Udik Дата: Суббота, 23.01.2016, 22:19 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1298
Репутация: 161 ±
Замечаний: 0% ±

Excel 2013
Есть ли вообще какой-то способ изменять размер окна программно

У пользовательской формы? Да вроде нет проблем,
для кнопки формы например
[vba]
Код

Private Sub CommandButton1_Click()
Me.Height = Me.Height + 90
End Sub

[/vba]
К сообщению приложен файл: 5056390.xlsm(22Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com


Сообщение отредактировал Udik - Суббота, 23.01.2016, 22:21
 
Ответить
Сообщение
Есть ли вообще какой-то способ изменять размер окна программно

У пользовательской формы? Да вроде нет проблем,
для кнопки формы например
[vba]
Код

Private Sub CommandButton1_Click()
Me.Height = Me.Height + 90
End Sub

[/vba]

Автор - Udik
Дата добавления - 23.01.2016 в 22:19
Darck Дата: Суббота, 23.01.2016, 22:28 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо!
Действительно при обращении к форме через "Me" все работает. А при обращении через имя, как к остальным объектам, работать отказывается.
Два часа по интернету искал... не нашел.
Тема закрыта.
 
Ответить
СообщениеСпасибо!
Действительно при обращении к форме через "Me" все работает. А при обращении через имя, как к остальным объектам, работать отказывается.
Два часа по интернету искал... не нашел.
Тема закрыта.

Автор - Darck
Дата добавления - 23.01.2016 в 22:28
RAN Дата: Суббота, 23.01.2016, 22:44 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4299
Репутация: 839 ±
Замечаний: 0% ±

2010
работать отказывается

Плохо просите :D
[vba]
Код
Private Sub CommandButton1_Click()
    With UserForm1
        .Width = .CommandButton2.Left + .CommandButton2.Width * 1.5
    End With
End Sub
Private Sub CommandButton2_Click()
    With UserForm1
        .Width = .CommandButton1.Left + .CommandButton1.Width
    End With
End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
работать отказывается

Плохо просите :D
[vba]
Код
Private Sub CommandButton1_Click()
    With UserForm1
        .Width = .CommandButton2.Left + .CommandButton2.Width * 1.5
    End With
End Sub
Private Sub CommandButton2_Click()
    With UserForm1
        .Width = .CommandButton1.Left + .CommandButton1.Width
    End With
End Sub
[/vba]

Автор - RAN
Дата добавления - 23.01.2016 в 22:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение размера формы (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!