View Single Post
  #6   Report Post  
Posted to microsoft.public.word.pagelayout
Doug Robbins - Word MVP Doug Robbins - Word MVP is offline
external usenet poster
 
Posts: 8,832
Default Insert pictures in completed document

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).R ange.Tables(1).Cell(1,
1).Range.Delete
myDoc.Sections(1).Headers(wdHeaderFooterPrimary).R ange.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).R ange.Tables(1).Cell(1,
1).Range.InlineShapes(1).Height
owidth =
myDoc.Sections(1).Headers(wdHeaderFooterPrimary).R ange.Tables(1).Cell(1,
1).Range.InlineShapes(1).Width
If oheight InchesToPoints(2) Then
With
myDoc.Sections(1).Headers(wdHeaderFooterPrimary).R ange.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).R ange.Tables(1).Cell(1,
1).Range.InlineShapes(1).Height
owidth =
myDoc.Sections(1).Headers(wdHeaderFooterPrimary).R ange.Tables(1).Cell(1,
1).Range.InlineShapes(1).Width
If owidth InchesToPoints(2.85) Then
With
myDoc.Sections(1).Headers(wdHeaderFooterPrimary).R ange.Tables(1).Cell(1,
1).Range.InlineShapes(1)
.Width = InchesToPoints(2.85)
.Height = oheight * InchesToPoints(2.85) / owidth
End With
End If



--
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

"oe" wrote in message
...
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!

"Doug Robbins - Word MVP" wrote in message
...
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.

--
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

"oe" wrote in message
...
I have to create text documents and then insert photographs at various
positions - lined up with the left or right margins within the various
paragraphs. No matter how I insert the pictures, I can't get them to stay
where I want them or to be the size I need them.

Would it be possible to use frames for this rather than just "insert
picture from file"? I have tried this but the picture never fits into
the frame.

Any ideas would be appreciated.

TIA