Добрый день , подскажите как мне в таблицах сделать , чтобы картинку (.jpg) из скажем листа3 , можно было выводить на листе1 путём вписывания в листе1 в ячейку (место куда хочу вывести) название картинки ? Спасибо .
Добрый день , подскажите как мне в таблицах сделать , чтобы картинку (.jpg) из скажем листа3 , можно было выводить на листе1 путём вписывания в листе1 в ячейку (место куда хочу вывести) название картинки ? Спасибо .777
Вы немного не поняли . Нужно так . На одном листе допустим лист2 у меня штук 20 изображений (миниатюр) , с названиями своими оригинальными . Нужно путём написания названия на листе1 в нужной ячейке , вывести нужное изображение в этой ячейке из листа2 .
Например пишу яблоко в ячейке на листе1 и у меня автоматом в эту ячейку вставляет фото с изображением яблока из листа2.
Вы немного не поняли . Нужно так . На одном листе допустим лист2 у меня штук 20 изображений (миниатюр) , с названиями своими оригинальными . Нужно путём написания названия на листе1 в нужной ячейке , вывести нужное изображение в этой ячейке из листа2 .
Например пишу яблоко в ячейке на листе1 и у меня автоматом в эту ячейку вставляет фото с изображением яблока из листа2.777
Сообщение отредактировал 777 - Понедельник, 19.12.2016, 02:08
Тут все просто: нужно поиском найти - событие изменение ячеек, а затем макрорекордером записать копирование -вставку объектов и все получится (наверное)
Тут все просто: нужно поиском найти - событие изменение ячеек, а затем макрорекордером записать копирование -вставку объектов и все получится (наверное)Nic70y
И я еще все картинки переименовал Макрос такой получился [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]
И я еще все картинки переименовал Макрос такой получился [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