Добавление картинки в диалоговое окно

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

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

Добавление картинки в диалоговое окно (Макросы/Sub)

aastg2016

Дата: Пятница, 24.09.2021, 23:07 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2016

Добрый вечер. Подскажите есть ли возможность при нажатии кнопки 3 вывести окно куда можно закинуть картинку и она встанет к примеру в ячейку М4, при этом удалит старую там картинку и добавит новую, которую я перетяну в окно или еще что то подобное?

К сообщению приложен файл: 0543886.xlsm (18.9 Kb)

Ответить

Erjoma1981

Дата: Воскресенье, 26.09.2021, 12:29 | Сообщение № 2

Группа: Проверенные

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

Сообщений: 66

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

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

Excel 2010, 2019

Возможно так.

[p.s.]сделано в Excel 2019 64 разрядном[/p.s.]

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

Сообщение отредактировал Erjoma1981 - Воскресенье, 26.09.2021, 19:31

Ответить

aastg2016

Дата: Воскресенье, 26.09.2021, 17:41 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2016

выдает ошибку

Ответить

Erjoma1981

Дата: Воскресенье, 26.09.2021, 19:21 | Сообщение № 4

Группа: Проверенные

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

Сообщений: 66

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

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

Excel 2010, 2019

подправил.

К сообщению приложен файл: 0543886_2.xlsm (43.4 Kb)

Ответить

aastg2016

Дата: Среда, 29.09.2021, 17:10 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2016

Цитата Erjoma1981, 26.09.2021 в 19:21, в сообщении № 4 (

)

одправил.

[vba]

Код

Private Sub UserForm_Initialize()
TreeView1.OLEDropMode = ccOLEDropManual
TreeView1.Visible = False
End Sub

[/vba]

Тут что то не так, не дает запустить и пишет вообще ошибки

К сообщению приложен файл: 4312214.png (6.7 Kb) · 6412622.png (5.4 Kb)

Сообщение отредактировал Serge_007 - Среда, 29.09.2021, 17:52

Ответить

aastg2016

Дата: Четверг, 30.09.2021, 00:17 | Сообщение № 6

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2016

Цитата Erjoma1981, 26.09.2021 в 12:29, в сообщении № 2 (

)

P.S.
сделано в Excel 2019 64 разрядном

у меня 16 года версия, наверно в этом проблема

Ответить

Erjoma1981

Дата: Четверг, 30.09.2021, 08:01 | Сообщение № 7

Группа: Проверенные

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

Сообщений: 66

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

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

Excel 2010, 2019

Второй файл (приложен в 4 сообщении) проверял в 2010 (32 разрядном).

Все сделано на основании Перенести картинку на форму
и Вставить картинку в ячейку