InsertPicture into Excel with a macro

[smintonuk]

Hi
I am attempting to do a bulk insert of thumbnail images (30 of them) into a workbook. I have the specific filepath to the individual images specified in column B and I want to automate the insertion of the images into column A.

I have found the a template for a code that suggests that it will perform the insertion, but I cannot modify the code to fit my specific situation becuase I am a novice at VBA and I need help!.

My images are all in a folder called: C:\Program Files\WebSundew\rightmove\images

Here is the code that I am trying to manipulate: What variables in the code do I have to change to get this to fit my situation?


Sub TestInsertPictureInRange()
InsertPictureInRange "C:\FolderName\PictureFileName.gif", _
Range("B5:D10")
End Sub

Sub InsertPictureInRange(PictureFileName As String, TargetCells As Range)
' inserts a picture and resizes it to fit the TargetCells range
Dim p As Object, t As Double, l As Double, w As Double, h As Double
If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
If Dir(PictureFileName) = "" Then Exit Sub
' import picture
Set p = ActiveSheet.Pictures.Insert(PictureFileName)
' determine positions
With TargetCells
t = .Top
l = .Left
w = .Offset(0, .Columns.Count).Left - .Left
h = .Offset(.Rows.Count, 0).Top - .Top
End With
' position picture
With p
.Top = t
.Left = l
.Width = w
.Height = h
End With
Set p = Nothing
End Sub


Any help would be graeatly appreiciated.

Thanks

smintonuk

 

[BrianB]

Hopefully you cn use my code here :-

http://www.mrexcel.com/board2/viewtopic.php?t=145831&highlight=pictures

 

[smintonuk]

Insert Picture overrides my data

Thanks for the suggestion. I was able to get the macro to work, but it would not import my images in sequence. It would only insert the 1st image, but it would insert it multiple times. My images are labeled: Image01, Image02, Image03 etc. some are .gifs, some are .jpgs.

The macro that you suggested also overwrites my data, and I was hoping to get the images inserted into the corresponding rows next to the filepath column.

Thanks for you help so far

Smintonuk