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

Вход

Регистрация

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

 

= Мир MS Excel/Как загрузить фото с компьютера в excel файл - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как загрузить фото с компьютера в excel файл (Макросы/Sub)
Как загрузить фото с компьютера в excel файл
Thierry[HenRy-14] Дата: Среда, 30.06.2021, 12:20 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Добрый день.

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

Всё написано, всё готово , чуть поправить, а именно на данный момент при написание имени фото в ячейку C3, загружается фото в ячейку F4
нужно чтобы С3 ячейка менялась в зависимости от ячейки D10, ячейка D10 будет в дальнейшем изменяться от условия.
К сообщению приложен файл: 671222223.xlsm(18.6 Kb)
 
Ответить
СообщениеДобрый день.

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

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

Автор - Thierry[HenRy-14]
Дата добавления - 30.06.2021 в 12:20
Thierry[HenRy-14] Дата: Среда, 30.06.2021, 12:39 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Thierry[HenRy-14]
Дата добавления - 30.06.2021 в 12:39
Pelena Дата: Среда, 30.06.2021, 13:55 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 17793
Репутация: 3958 ±
Замечаний: ±

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


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Вроде всё работает. Что не устраивает?

Автор - Pelena
Дата добавления - 30.06.2021 в 13:55
Thierry[HenRy-14] Дата: Среда, 30.06.2021, 13:59 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

Автор - Thierry[HenRy-14]
Дата добавления - 30.06.2021 в 13:59
Pelena Дата: Среда, 30.06.2021, 14:07 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 17793
Репутация: 3958 ±
Замечаний: ±

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


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеТогда надо макрос вешать не на Worksheet_Change, а на событие Worksheet_Calculate

Автор - Pelena
Дата добавления - 30.06.2021 в 14:07
Thierry[HenRy-14] Дата: Среда, 30.06.2021, 14:13 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

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

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


Сообщение отредактировал Thierry[HenRy-14] - Среда, 30.06.2021, 14:13
 
Ответить
СообщениеPelena, При всем уважение, я буду очень признателен если вы поможете поправить код. Спасибо заранее

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

Автор - Thierry[HenRy-14]
Дата добавления - 30.06.2021 в 14:13
Pelena Дата: Среда, 30.06.2021, 14:21 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 17793
Репутация: 3958 ±
Замечаний: ±

Excel 2016 & Mac Excel
Тот же макрос, но на другой событие
К сообщению приложен файл: 1775919.xlsm(20.0 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеТот же макрос, но на другой событие

Автор - Pelena
Дата добавления - 30.06.2021 в 14:21
Thierry[HenRy-14] Дата: Среда, 30.06.2021, 15:31 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Thierry[HenRy-14]
Дата добавления - 30.06.2021 в 15:31
Thierry[HenRy-14] Дата: Среда, 14.07.2021, 16:53 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

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

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


Сообщение отредактировал Thierry[HenRy-14] - Среда, 14.07.2021, 16:55
 
Ответить
СообщениеPelena, Доброе время суток! Начал использовать файл, почему то картинка открывается в другом открытом файле, или как сказать активном

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

Автор - Thierry[HenRy-14]
Дата добавления - 14.07.2021 в 16:53
Thierry[HenRy-14] Дата: Среда, 14.07.2021, 17:38 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Подскажите пожалуйста
 
Ответить
СообщениеПодскажите пожалуйста

Автор - Thierry[HenRy-14]
Дата добавления - 14.07.2021 в 17:38
Pelena Дата: Среда, 14.07.2021, 19:06 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 17793
Репутация: 3958 ±
Замечаний: ±

Excel 2016 & 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 замените на имя нужного листа


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение[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 замените на имя нужного листа

Автор - Pelena
Дата добавления - 14.07.2021 в 19:06
Thierry[HenRy-14] Дата: Среда, 14.07.2021, 19:39 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Thierry[HenRy-14]
Дата добавления - 14.07.2021 в 19:39
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как загрузить фото с компьютера в excel файл (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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