Using af picture frame in a template

[Erik Beck Jensen]

Hi



Word 2002 SP3



In a template I want to place a frame - or something similar - without any
picture. The frame size is 8 by 10 cm.

In use, I want the picture to be resized to fit into the frame, when the
user ads a picture. The picture can be of any size and either a landscape or
portrait format. Newer the less the picture inserted must never exceed the
frame size and the whole picture must be visible.



I have tried to use at textbox. It can handle some pictures but not all.
Does anyone have a better solution?



Best regards

Erik Beck Jensen

 

[Doug Robbins]

Hi Erik,

Use a single cell table with fixed cell dimensions.

Here's a bit of code out of an application of mine that inserts a logo into
a cell and then adjusts its dimensions so that it fits/fills the cell:

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

--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP

 

[Erik Beck Jensen]

Thank you Doug; it does exactly what I was looking for.



Best regards

Erik