inlineshape

[Nathan Franklin]

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

 

[Cindy M -WordMVP-]

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