Всем доброго дня! Подскажите пожалуйста (туплю) как обратиться к объектам на UserForm через переменную. На UserForm предполагается куча кнопок, нужно им при адаптации к разрешению экрана задать одинаковые свойства. Как, не могу найти. [vba]
Код
For xx = 1 To 4 With UserForm1.ToggleButton(xx) .Width = 160 * Kx .Height = 70 * Ky .Font.Size = 11 * Ky End With Next xx
[/vba]
Всем доброго дня! Подскажите пожалуйста (туплю) как обратиться к объектам на UserForm через переменную. На UserForm предполагается куча кнопок, нужно им при адаптации к разрешению экрана задать одинаковые свойства. Как, не могу найти. [vba]
Код
For xx = 1 To 4 With UserForm1.ToggleButton(xx) .Width = 160 * Kx .Height = 70 * Ky .Font.Size = 11 * Ky End With Next xx
Sancho, обратите внимание еще на то, что Ваш код может быть запущен и на машине 64 бита. Поэтому вместо первой строки запишите вот так [vba]
Код
#If Win64 Then Private Declare PtrSafe Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long #Else Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long #End If
[/vba] На красноту (если будет) внимания не обращайте
Sancho, обратите внимание еще на то, что Ваш код может быть запущен и на машине 64 бита. Поэтому вместо первой строки запишите вот так [vba]
Код
#If Win64 Then Private Declare PtrSafe Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long #Else Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long #End If
[/vba] На красноту (если будет) внимания не обращайте_Boroda_
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
