Екцел - Макро за уметање слика у радни лист

• Питање
• Решење

Питање

Покушавам да убацим слике у Екцел колону користећи макро који узима име фајла рефренце из Б2 ћелије и убацује слику у А2 ћелију. На пример: ако Б2 садржи Н235 онда ће слика која ће бити убачена у А2 бити Н235.јпг са дате путање у Макроу. Ово ради добро ОСИМ када нема слике у мапи са истим именом као у мапи.

• Добијам грешку при извођењу 1004 и макро се зауставља и не може попунити слику након те ћелије.

Решење

 Под слика ()
Дим пицнаме Ас Стринг
Дим пастеАт Ас Интегер
Дим лТхисРов Ас Лонг
лТхисРов = 2
До вхиле (ћелије (лТхисРов, 2) "")
пастеАт = лТхисРов
Ћелије (пастеАт, 1) .Одаберите 'Ово је место где ће слика бити убачена
пицнаме = Ћелије (лТхисРов, 2) 'Ово је име слике
пресент = Дир ("Ц: Корисници Администратор Десктоп" ЛЦ & пицнаме & ".јпг")
Ако постоји "" Онда
АцтивеСхеет.Пицтурес.Инсерт ("Ц: Корисници Администратор Десктоп" ЛЦ \ _ & пицнаме & ".јпг").
'' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '
'Ово мења величину слике
'' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '
Витх Селецтион
Лево = Распон ("А6")
'.Топ = Распон ("А6")
.Лефт = Целлс (пастеАт, 1) .Лефт
.Топ = Целлс (пастеАт, 1)
.СхапеРанге.ЛоцкАспецтРатио = мсоФалсе
.СхапеРанге.Хеигхт = 100 #
.СхапеРанге.Видтх = 130 #
.СхапеРанге.Ротатион = 0 #
Завршити
Елсе
Ћелије (пастеАт, 1) = "Није пронађена слика"
Енд Иф
лТхисРов = лТхисРов + 1
Лооп
Опсег ("А10")
Апплицатион.СцреенУпдатинг = Труе
Екит Суб
ЕррНоПхото:
МсгБок "Није могуће пронаћи фотографију" "Приказује оквир за поруку ако слика није пронађена
Екит Суб
Опсег ("Б20")
Енд Суб 

Хвала ризвиса1 за овај тип.