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

Вход

Регистрация

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

 

= Мир MS Excel/Вывод картинки в заданное (ячейку) место - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Вывод картинки в заданное (ячейку) место
777 Дата: Воскресенье, 18.12.2016, 13:18 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день , подскажите как мне в таблицах сделать , чтобы картинку (.jpg)
из скажем листа3 , можно было выводить на листе1 путём вписывания в
листе1 в ячейку (место куда хочу вывести) название картинки ? Спасибо .
 
Ответить
СообщениеДобрый день , подскажите как мне в таблицах сделать , чтобы картинку (.jpg)
из скажем листа3 , можно было выводить на листе1 путём вписывания в
листе1 в ячейку (место куда хочу вывести) название картинки ? Спасибо .

Автор - 777
Дата добавления - 18.12.2016 в 13:18
Nic70y Дата: Воскресенье, 18.12.2016, 19:28 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8969
Репутация: 2350 ±
Замечаний: 0% ±

Excel 2010
гугл мне показал это


ЮMoney 41001841029809
 
Ответить
Сообщениегугл мне показал это

Автор - Nic70y
Дата добавления - 18.12.2016 в 19:28
krosav4ig Дата: Понедельник, 19.12.2016, 01:41 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 996 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а мне нигма показала вот это


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 19.12.2016, 02:14
 
Ответить
Сообщениеа мне нигма показала вот это

Автор - krosav4ig
Дата добавления - 19.12.2016 в 01:41
777 Дата: Понедельник, 19.12.2016, 02:04 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Вы немного не поняли . Нужно так . На одном листе допустим лист2 у меня штук 20 изображений (миниатюр) ,
с названиями своими оригинальными . Нужно путём написания названия на листе1 в нужной ячейке , вывести
нужное изображение в этой ячейке из листа2 .

Например пишу яблоко в ячейке на листе1 и у меня автоматом в эту ячейку вставляет фото с изображением яблока из листа2.


Сообщение отредактировал 777 - Понедельник, 19.12.2016, 02:08
 
Ответить
СообщениеВы немного не поняли . Нужно так . На одном листе допустим лист2 у меня штук 20 изображений (миниатюр) ,
с названиями своими оригинальными . Нужно путём написания названия на листе1 в нужной ячейке , вывести
нужное изображение в этой ячейке из листа2 .

Например пишу яблоко в ячейке на листе1 и у меня автоматом в эту ячейку вставляет фото с изображением яблока из листа2.

Автор - 777
Дата добавления - 19.12.2016 в 02:04
krosav4ig Дата: Понедельник, 19.12.2016, 02:16 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 996 ±
Замечаний: 0% ±

Excel 2007,2010,2013
На одном листе допустим лист2 у меня штук 20 изображений

а у нас, допустим, их нет
нет ни листа, ни изображений, ни, тем более, их названий.


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
На одном листе допустим лист2 у меня штук 20 изображений

а у нас, допустим, их нет
нет ни листа, ни изображений, ни, тем более, их названий.

Автор - krosav4ig
Дата добавления - 19.12.2016 в 02:16
777 Дата: Понедельник, 19.12.2016, 14:36 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
а у нас, допустим, их нет
нет ни листа, ни изображений, ни, тем более, их названий.

А , я кажется понял о чём Вы . То есть Вам нужны названия оригинальный фоток для кода ??

Так можно имж1,имж2 или нет или нужны чёткие ссылки на имж ??
 
Ответить
Сообщение
а у нас, допустим, их нет
нет ни листа, ни изображений, ни, тем более, их названий.

А , я кажется понял о чём Вы . То есть Вам нужны названия оригинальный фоток для кода ??

Так можно имж1,имж2 или нет или нужны чёткие ссылки на имж ??

Автор - 777
Дата добавления - 19.12.2016 в 14:36
Nic70y Дата: Понедельник, 19.12.2016, 14:53 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 8969
Репутация: 2350 ±
Замечаний: 0% ±

Excel 2010
понял о чём Вы
неа!
файл давайте!


ЮMoney 41001841029809
 
Ответить
Сообщение
понял о чём Вы
неа!
файл давайте!

Автор - Nic70y
Дата добавления - 19.12.2016 в 14:53
777 Дата: Понедельник, 19.12.2016, 14:58 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
неа!
файл давайте!

Понял . Извините , вечером скину.
 
Ответить
Сообщение
неа!
файл давайте!

Понял . Извините , вечером скину.

Автор - 777
Дата добавления - 19.12.2016 в 14:58
777 Дата: Понедельник, 19.12.2016, 21:47 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Излишнее цитирование удалено
К сообщению приложен файл: 9629557.xlsx (96.5 Kb)
 
Ответить
СообщениеИзлишнее цитирование удалено

Автор - 777
Дата добавления - 19.12.2016 в 21:47
Nic70y Дата: Вторник, 20.12.2016, 20:54 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 8969
Репутация: 2350 ±
Замечаний: 0% ±

Excel 2010
Тут все просто:
нужно поиском найти - событие изменение ячеек,
а затем макрорекордером записать копирование -вставку объектов
и все получится (наверное)


ЮMoney 41001841029809
 
Ответить
СообщениеТут все просто:
нужно поиском найти - событие изменение ячеек,
а затем макрорекордером записать копирование -вставку объектов
и все получится (наверное)

Автор - Nic70y
Дата добавления - 20.12.2016 в 20:54
_Boroda_ Дата: Среда, 21.12.2016, 10:39 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
И я еще все картинки переименовал
Макрос такой получился
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    On Error Resume Next
    Sheets("Все фото").Shapes(Target).Copy
    If Err Then Exit Sub
    Target.Select
    ActiveSheet.Paste
    Target.Select
End Sub
[/vba]
К сообщению приложен файл: 9629557_2.xlsb (53.3 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеИ я еще все картинки переименовал
Макрос такой получился
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    On Error Resume Next
    Sheets("Все фото").Shapes(Target).Copy
    If Err Then Exit Sub
    Target.Select
    ActiveSheet.Paste
    Target.Select
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 21.12.2016 в 10:39
777 Дата: Среда, 21.12.2016, 18:17 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, Спачибо то что надо !!


Сообщение отредактировал 777 - Среда, 21.12.2016, 18:17
 
Ответить
Сообщение_Boroda_, Спачибо то что надо !!

Автор - 777
Дата добавления - 21.12.2016 в 18:17
  • Страница 1 из 1
  • 1
Поиск:

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