Insert pictures in completed document

O

oe

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
 
D

Doug Robbins - Word MVP

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
 
O

oe

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

oe

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

oe

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
 
D

Doug Robbins - Word MVP

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



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

oe

Thanks - I will try that.

Doug Robbins - Word MVP said:
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



--
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
Click to expand...
 
Top