Automating the selection, insertion, resizing, and border-adding on WMF files

[KR]

Hi all-
Using Word 2000 on Windows 2000.

I checked for old posts and checked the FAQ and didn't find anything
specific; please feel free to point me in the right direction if this has
been answered elsewhere.

I exported ("save as") a boatload of powerpoint slides as WMF files so that
I could insert them into a word document along with instructor notes. I have
a two-column table in word, with the WMF's being inserted in the left column
(set at preferred width of 2") and the text instructions going in the right
column (preferred width 5") with an overall table preferred width set at 7".

Problem: When I insert a WMF file in the left column, it inserts at page
width (or something a lot larger than 2" anyway). I end up having to resize
the image down to about 1.5", then add a border. Because the picture comes
in so large, when I resize it, I am often left with a different page visible
onscreen than the one with the picture, so I have to scroll after each
picture is inserted to find my place again.

Desired solution: I'd like to use VBA to automate the process; when
activated, the macro should bring up the wdDialogInsertPicture box to allow
me (or anyone) to select the right picture (using the dialog box's built in
thumbnail viewer to help select the right slide). I'd like to insert the
picture "pre-sized" so that it doesn't mess up the page, and (preferably) go
ahead and add the single border around the picture at the same time.

I'm just starting, and I can get the dialog box up by using:
mypic = Dialogs(wdDialogInsertPicture).Show
but I'm having trouble figuring out how to intercept the picture so I can
resize it (and add the border) before it actually goes into the document.

Any thoughts or suggestions would be greatly appreciated-
Keith

 

[Doug Robbins]

If you uncheck the Automatically resize to fit contents option in the Table
properties, the inserted file should not cause the width of the column to
alter, and the height of the picture should be automatically adjusted to
maintain the original aspect ratio.

--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP