Hello List

Is there anyway, when I insert a picture with InlineShapes.Add to make the
image as big as it can be without exceeding the height or width of its
current container?

It container is currently a merged table cell from b3 to f4. By that I mean
row 2 column 3 to row 6 column 4.

Thankyou very much

kind regards
nathan

Hi Nathan,

Is there anyway, when I insert a picture with InlineShapes.Add to make the
image as big as it can be without exceeding the height or width of its
current container?

It container is currently a merged table cell from b3 to f4. By that I mean
row 2 column 3 to row 6 column 4.

The macro needs to help things along :-) You should be able to pick up the
dimensions of the current cell and use that information to set the size.
Roughly (untested):

Dim sngWidth as Single

Set ils = Selection.Range.Inlineshapes.AddPicture("filename" )
ils.ScaleWidth = 100 + (ils.Width/sngWidth)

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
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 :-)