Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.03.2014, 17:02   #1
Cipariz
Новичок
Джуниор
 
Регистрация: 03.03.2014
Сообщений: 1
По умолчанию Вставка картинки соответствующей содержанию ячейки

Добрый день!
Столкнулся с проблемой: Данные в файле формируются посредством ВПР из разных баз. Единственное с чем не получается - это изображение.
Действие происходит следующим образом: в ячейку "K1" вписывается ФИО человека, по этому ФИО данные собираются с разных мест. Есть папка с изображениями "C:\System32\Picture\Avatar\", где названия фото соответствуют ФИО людей.
Мне необходимо чтобы по нажатию кнопки фото тоже подтягивалось из папки в ячейку "I5" (или диапазон ячеек) - оптимально по ширине или высоте ячейки (выравнивание по левому краю).
Перерыв интернет нашел только такую формулу, но она не срабатывает, скорее всего из-за неправильного названия ячейки:
Sub SelectionPhoto()
If Target.Address = "K1" Then
ActiveSheet.Pictures.Insert("C:\Sys tem32\Picture\Avatar\" & Target.Value).Select
Selection.Left = Columns("Z").Left
Selection.Top = Rows(5).Top
End If
End Sub
Cipariz вне форума Ответить с цитированием
Старый 03.03.2014, 18:12   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

1. напишите в начале процедуры такую доп. строку:
debug.print Target.Address

2. нажмите в редакторе ВБА Ctrl+G (откроется окно Immediate)

3. выполните SelectionPhoto

4. посмотрите то, что отобразилось в окне Immediate равно К1 (даже когда отмечена К1)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вставка картинки в Word GBAXA Общие вопросы Delphi 1 02.07.2010 23:56
Вставка картинки в listbox Rapala Мультимедиа в Delphi 0 16.05.2010 16:04
Вставка картинки Artem HTML и CSS 6 24.10.2007 14:02
Вставка картинки в проект Flash_ Gamedev - cоздание игр: Unity, OpenGL, DirectX 9 18.01.2007 22:00