Hi,

I am trying to accomplish a way on how I can import product images the column next to my product code.

The files are on my desktop, and the product code is in cell B3.

I have seen some VBA code for picture_insert but I am not too sure on how to use it...

————————VBA—————————

Dim i As Integer
Dim sFilename As String
Dim bcontinue As Boolean
Dim spath As String

Sub Attempt1()
On Error Resume Next

‘spath = “\\192.168.0.45\Picture\ProductPic\”

spath = “D:\Vdo_Capture\ProductPic\”

i = 2

bcontinue = True

While bcontinue
sFilename = Worksheets(1).Cells(i, 2).Value
If sFilename = “” Then
bcontinue = False
Else

‘Set Position Pic A = 1

Cells(i, 1).Select
ActiveSheet.Pictures.Insert(spath + sFilename + “S1.jpg”).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 50
Selection.ShapeRange.Width = 50
i = i + 1
End If
Wend

End Sub

—————————END———————————-
I have tried the code above with no success, this is couresty of http://www.youtube.com/watch?feature...&v=5Z0xLMV_PJc

Any help would be much appreciated