Insert image based on filename

H

Huber57

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
 
D

Doug Robbins - Word MVP

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/cindymeister/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
 
H

Huber57

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top