Boa tarde,
Tenho uma planilha, onde necessito incluir automaticamente imagens. Gostaria de saber se há alguma forma de elaborar uma macro, em que faça junção da Referência e da cor (referência&cor) e busque numa determinada pasta a foto relacionada a esse código.
Ex:
Na macro é possível que quando não tenha foto na pasta nomeada com (referência&cor ex: 60557000156) tem como ela pular e continuar inserindo fotos para as próximas?
Macro já existente: A macro que eu utilizo em outros materiais para buscar imagens é essa abaixo, porém ela precisa ser repetida para cada imagem que eu necessitar, anteriormente eram no máximo 20 imagens, porém agora para cada página são no mínimo 78 imagens e cada aba do excel possui no máximo 6 página o que resulta em aproximadamente 468 imagens, por isso busco uma macro mais resumida;
Sub Macros2()
Call Imagem1
Call Imagem2
Call Imagem3
'...
Call Imagem20
End Sub
Sub Imagem1()
Range("B11").Select 'This is where picture will be inserted
Dim picname As String
picname = Range("A6") 'This is the picture name
ActiveSheet.Pictures.Insert("\\storage\Img_Systextil\PROJETO LUNENDER\Fotos RPN\Inverno 2018\" & picname & ".JPG").Select 'Path to where pictures are stored
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' This resizes the picture
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
With Selection
.Left = Range("B11").Left
.Top = Range("B11").Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 150#
.ShapeRange.Width = 150#
.ShapeRange.Rotation = 0#
End With
Range("A10").Select
Application.ScreenUpdating = True
Exit Sub
ErrNoPhoto:
MsgBox "Unable to Find Photo" 'Shows message box if picture not found
Exit Sub
Range("B20").Select
End Sub