InlineShapes.AddPicture

[geotis]

I have multiple image files in a directory that I want to insert in a
Word Document, i.e.,

For I = 1 to nFiles
ActiveDocument.InlineShapes.AddPicture FileName:= Filename(I),
LinkToFile:=False, SaveWithDocument:=True
Next I

The first picture is added as intended, but all subsequent AddPicture
commands produce the following error message:

"The graphics filter was unable to convert this file."

The image files are WordPerfect Graphics files (*.WP3).

Any suggestions would be greatly appreciated.

Thanks,

Bruce Smith

 

[Cindy M.]

Which version of Word are we dealing with?

What happens if you try to insert these files manually in Word (rather
than using a macro)?

I have multiple image files in a directory that I want to insert in a
Word Document, i.e.,

For I = 1 to nFiles
ActiveDocument.InlineShapes.AddPicture FileName:= Filename(I),
LinkToFile:=False, SaveWithDocument:=True
Next I

The first picture is added as intended, but all subsequent AddPicture
commands produce the following error message:

"The graphics filter was unable to convert this file."

The image files are WordPerfect Graphics files (*.WP3).

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question
or reply in the newsgroup and not by e-mail

 

[Mike Starr]

I haven't tried it in some time but I've had the OP's problem occur when I
used drag and drop to try to insert a group of pictures into a Word
document. I'd select the pictures in a Windows Explorer view and try to drag
and drop them to my Word document. For some reason, for each image, it
opened Paint Shop Pro (which is my default application for .jpg or .gif
files). The net result was the same as the OP reported so I stopped trying
to insert a batch of graphics at once.

Mike
--
Mike Starr WriteStarr Information Services
Technical Writer - Online Help Developer - Website developer
Graphic Designer - Desktop Publisher - MS Office Expert
Phone: (262) 694-1028 - Tollfree: (877) 892-1028 - Fax262) 697-6334
Email: (e-mail address removed) - Web: http://www.writestarr.com