
Signature
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
Thanks, Doug, I have tried that but even when I make the cell height an
exact measurement, the photograph is not resized to fit. Also, when I insert
the table cell into the text, the text does not wrap around the picture in
the cell.
I am obviously missing something here!
> Insert a one cell table of the required dimensions at the locations where
> you want the picture to appear and then insert the picture into that cell.
[quoted text clipped - 11 lines]
>>
>> TIA
oe - 21 Nov 2007 15:58 GMT
I have been trying various things and 'googling' help for photos in
paragraphs but have not cracked this one yet. Any help would be much
appreciated.
> Thanks, Doug, I have tried that but even when I make the cell height an
> exact measurement, the photograph is not resized to fit. Also, when I
[quoted text clipped - 18 lines]
>>>
>>> TIA
oe - 27 Nov 2007 16:34 GMT
Since asking the question, I have done quite a bit of experimenting but
still have not come up with a solution. I would Really appreciate some help,
TIV
>I have been trying various things and 'googling' help for photos in
>paragraphs but have not cracked this one yet. Any help would be much
[quoted text clipped - 22 lines]
>>>>
>>>> TIA
Doug Robbins - Word MVP - 27 Nov 2007 19:08 GMT
In the table properties dialog, you can set the text wrapping for the table.
As far as sizing the picture is concerned, to do it "automatically", you
would need a macro and the following may help:
'Insert Logo on Title Page
myDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1,
1).Range.Delete
myDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1,
1).Range.InlineShapes.AddPicture _ Filename:=txtLargeLogoPath
'Adjust size of logo to match the avalable space
oheight =
myDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1,
1).Range.InlineShapes(1).Height
owidth =
myDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1,
1).Range.InlineShapes(1).Width
If oheight < InchesToPoints(2) Then
With
myDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1,
1).Range.InlineShapes(1)
.Height = InchesToPoints(2)
.Width = owidth * InchesToPoints(2) / oheight
End With
End If
oheight =
myDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1,
1).Range.InlineShapes(1).Height
owidth =
myDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1,
1).Range.InlineShapes(1).Width
If owidth > InchesToPoints(2.85) Then
With
myDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1,
1).Range.InlineShapes(1)
.Width = InchesToPoints(2.85)
.Height = oheight * InchesToPoints(2.85) / owidth
End With
End If

Signature
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
> Thanks, Doug, I have tried that but even when I make the cell height an
> exact measurement, the photograph is not resized to fit. Also, when I
[quoted text clipped - 18 lines]
>>>
>>> TIA
oe - 29 Nov 2007 16:26 GMT
Thanks - I will try that.
> In the table properties dialog, you can set the text wrapping for the
> table. As far as sizing the picture is concerned, to do it
[quoted text clipped - 59 lines]
>>>>
>>>> TIA