При добавлении текстового поля OLEObjects выгружается (обнуляется) скрытая форма, Как избежать очищения публичной переменной в которой хранится экземпляр формы при добавлении текстового поля OLEObjects
Пользователь
Сообщений: Регистрация: 29.06.2017
29.06.2017 15:41:56
1 Создаю форму
Код
Load ufDemo
2 Прячу ее в публичную переменную
Код
Public frmm As Variant
Set frmm = Me
3 По нажатию на кнопку отображаю
Код
frmm.Show
4 Удаляю старую кнопку, затем создаю другую кнопку для открытия формы рядом с ней текстовый блок
Код
Set TextBox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Left:=L, Top:=T, WIDTH:=W, HEIGHT:=H)
Как избежать очищения публичной переменной в которой хранится экземпляр формы при добавлении текстового поля OLEObjects?
файл загрузить не смог так как лимит на загрузку 100 кб а когда в своем файле все ненужное почистил стало 157кб меньше ни как по этому скинул файл в облако:
