Как загрузить фото с компьютера в excel файл

Дата: Среда, 30.06.2021, 12:20 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 25

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

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

Добрый день.

Ничего сверхъестественного делать не надо, нужно чуть поправить код или найти другое решение, вам всё просто в течение минуты сделаете,
а я торможу не могу понять почему у меня не получается

Всё написано, всё готово , чуть поправить, а именно на данный момент при написание имени фото в ячейку C3, загружается фото в ячейку F4
нужно чтобы С3 ячейка менялась в зависимости от ячейки D10, ячейка D10 будет в дальнейшем изменяться от условия.

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

Дата: Среда, 30.06.2021, 12:39 | Сообщение № 2

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

Ранг: Новичок

Сообщений: 25

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

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

Если будут вопросы, то задавайте. Очень хочется побыстрее решить данную проблему

Дата: Среда, 30.06.2021, 13:55 | Сообщение № 3

Группа: Админы

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

Сообщений: 19184

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Вроде всё работает. Что не устраивает?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Дата: Среда, 30.06.2021, 13:59 | Сообщение № 4

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

Ранг: Новичок

Сообщений: 25

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

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

Pelena, Вот изображение меняется только когда в ячёйку C3 либо пишешь, либо вставляешь имя файла, тогда изображение отображается в ячейке F4

А вот если я делаю ссылку например в ячейке C3 пишу =D10 , потом D10 меняется, а изображения не меняется в ячейке F4

Дата: Среда, 30.06.2021, 14:07 | Сообщение № 5

Группа: Админы

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

Сообщений: 19184

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

Замечаний: ±

Excel 365 & Mac Excel

Тогда надо макрос вешать не на Worksheet_Change, а на событие Worksheet_Calculate

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Дата: Среда, 30.06.2021, 14:13 | Сообщение № 6

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

Ранг: Новичок

Сообщений: 25

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

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

Pelena, При всем уважение, я буду очень признателен если вы поможете поправить код. Спасибо заранее

Если вас это не затруднит конечно же

Сообщение отредактировал Thierry[HenRy-14] - Среда, 30.06.2021, 14:13

Дата: Среда, 30.06.2021, 14:21 | Сообщение № 7

Группа: Админы

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

Сообщений: 19184

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

Замечаний: ±

Excel 365 & Mac Excel

Тот же макрос, но на другой событие

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

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Дата: Среда, 30.06.2021, 15:31 | Сообщение № 8

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

Ранг: Новичок

Сообщений: 25

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

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

Pelena, Всё работает спасибо вам большое за отзывчивость и помощь

Дата: Среда, 14.07.2021, 16:53 | Сообщение № 9

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

Ранг: Новичок

Сообщений: 25

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

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

Pelena, Доброе время суток! Начал использовать файл, почему то картинка открывается в другом открытом файле, или как сказать активном

как сделать тоже самое только чтобы всё отображалось в данном листе, данного файла.

Сообщение отредактировал Thierry[HenRy-14] - Среда, 14.07.2021, 16:55

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

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

Ранг: Новичок

Сообщений: 25

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

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

Подскажите пожалуйста

Дата: Среда, 14.07.2021, 19:06 | Сообщение № 11

Группа: Админы

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

Сообщений: 19184

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

Замечаний: ±

Excel 365 & Mac Excel

[vba]

Код

Private Sub Worksheet_Calculate()
    Dim KeyCells As Range
    Dim s As Shape, a$, sh as Worksheet

    Set sh=Thisworkbook.Sheets("Лист1")
    a = sh.Range("F4").Address

    Set KeyCells = sh.Range("C3:C3")

    For Each s In sh.Shapes
        If s.TopLeftCell.Address = a Then s.Delete: Exit For
    Next
    sh.Shapes.AddPicture sh.Cells(4, 3).Value, False, True, sh.Cells(4, 6).Left, sh.Cells(4, 6).Top, -1, -1
End Sub

[/vba]
Лист1 замените на имя нужного листа

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Дата: Среда, 14.07.2021, 19:39 | Сообщение № 12

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

Ранг: Новичок

Сообщений: 25

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

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

Pelena, Спасибо большое ещё раз, пока вроде работает )