Insert pictutes

[Edward]

Hi everybody,
I'm using VBA to insert photos in specific cell in a table
Set myrange = ActiveDocument.Tables(1).Cell(1, 1).Range
myrange.InlineShapes.AddPicture photoPath, False, True
myrange.InlineShapes(1).ScaleHeight = 0.25
myrange.InlineShapes(1).ScaleWidth = 0.25
but scale width and scaleheight don't have any effect on the picture size
any suggestions?
When I use height and weight they do work but not scalewidth .

 

[Doug Robbins - Word MVP on news.microsoft.com]

Using the following should accomplish the same thing:

With myRange.InlineShapes(1)
.Height = .Height * 0.25
.Width = .Width * 0.25
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com