Resizing a Picture in a word document

Using VFP 9 SP1

I'm able to create a document, send the correct data, create a table and
insert a photo in a cell (I'm using
.Cell[2,4].Range.InlineShapes.AddPicture((lcImage)) ), so far so good. I'm
looking in the book automation with Visual Foxpro and it mentions being able
to assign a height and width to the image. I've tried -
.Cell[2,4].Range.InlineShapes.height = (number) etc, but it tells me it
doesn't recognize the object.

Could someone please tell me how to pass the height and width so I can
resize the picture.

thank you

Bernhard
Sat Feb 11 13:29:03 CST 2006

Hi Pastor Hank,

> I've tried -
> .Cell[2,4].Range.InlineShapes.height = (number) etc, but it tells me it
> doesn't recognize the object.

Since InlineShapes is a collection of shapes, you have to tell word which member
of the collection you want to resize. Use something like:
.Cell[2,4].Range.InlineShapes.ITEM(INDEX).height = (number)
See also VBA help of MSOffice

Regards
Bernhard Sander

PastorHank
Sat Feb 11 15:15:28 CST 2006

Thank you, that worked perfectly


"Bernhard Sander" wrote:

> Hi Pastor Hank,
>
> > I've tried -
> > .Cell[2,4].Range.InlineShapes.height = (number) etc, but it tells me it
> > doesn't recognize the object.
>
> Since InlineShapes is a collection of shapes, you have to tell word which member
> of the collection you want to resize. Use something like:
> ..Cell[2,4].Range.InlineShapes.ITEM(INDEX).height = (number)
> See also VBA help of MSOffice
>
> Regards
> Bernhard Sander
>