[Huber57]

All:

Here is what I was looking for. Sorry for the post.

http://www.gmayor.com/mail_merge_graphics.htm

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