Doug,

Thank you for your note. The code listed below was from Excel. I
appreciate the link to Cindy's page.

It looks like I want to use the InsertPicture function. Here is how I would
like to use it.

I have a table with two columns:
Col A. lists the file name of a picture in each row
Col B. has a picture of the corresponding file name in the same row.

Example:
Col. A Col. B
duck.jpg (displays picture of a duck using InsertPicture function)

What i would like in Col. B is the InsertPicture function that references
the file in the same row in column A.

Is there a way to use InsertPicture and reference Col A and copy it down
column B? I have over 1,000 pictures that I need to do this with.

Sincerely,

Doug

"Doug Robbins - Word MVP" wrote:

Are you using Excel or Word. Your use of ActiveSheet makes me think you are
working in Excel.

You could however use the information in the first column to do a mail merge
in Word that would insert the filenames and the pictures into a document.

See the "Graphics from data base" item under the "Special merges" section of
fellow MVP Cindy Meister's website at:

http://homepage.swissonline.ch/cindy...r/MergFram.htm


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

"Huber57" wrote in message
...
Hello all:

I have searched high and low for an answer and I am stumped.

I have a table with two columns. In column A, I have the filename of an
image that I would like to insert into column B. There are over 1,000.
Is
there any way to write a macro to insert all of them into Column B based
on
the information in Column A? I found this macro for excel but I don't
know
if it could be used as a starting point for Word.

Sub ABCD()
Dim pic As Picture
Dim sPath As String, sName As String
Range("B2").Select
sPath = "C:\Graphics\"
sName = Range("A2").Value
If LCase(Right(sName, 4)) ".png" Then
sName = sName & ".png"
End If
If Dir(sPath & sName) "" Then
Set pic = ActiveSheet.Pictures.Insert(sPath & sName)
With Range("B2")
pic.Top = .Top
pic.Left = .Left
End With
Else
MsgBox sPath & sName & " not found"
End If
End Sub

Any help would be greatly appreciated!

Sincerely,

Doug