Hi Renate,
so far nothing but a rather awkward workaround,
until someone comes up with a better solution.
Sub Test444b()
Dim x1 As Single
Dim x2 As Single
x1 =
Selection.Bookmarks("\page").Range.Information(wdVerticalPositionRelativeToPage)
ActiveWindow.View.SeekView = wdSeekCurrentPageFooter
x2 = Selection.Information(wdVerticalPositionRelativeToPage)
x2 = x2 - Selection.Paragraphs.First.SpaceBefore
MsgBox PointsToCentimeters(x2 - x1) ' picture height
ActiveWindow.View.SeekView = wdSeekMainDocument
End Sub
Tried hard, but couldn't get it to work
without selection and switching views.
Beware of linebreaks by the newsreader.
HTH, nevertheless

Signature
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"
Renate - 22 Jun 2007 18:46 GMT
Hi Helmut,
Thanks for the suggestion. I always like to prevent working with
selections and seekviews but maybe this is worth investigating. I also
thought of placing a sectionpage field with code, pick up it's value
and delete the field afterwards if I know on which page I'm working.
This all seems like not straight forward solutions. There must be a
VBA equivalent of the functionality of the sectionpage field?
If you think about it, this is not a very rare situation. How do other
developers handle sizing pictures from within code?
Thanks anyway, I will try and compare to see what is the best
alternative in this situation.
Maybe there are more takers with other suggestions?
Have a very nice weekend!
All the best,
Renate
> Hi Renate,
>
[quoted text clipped - 27 lines]
> Win XP, Office 2003
> "red.sys" & Chr$(64) & "t-online.de"
Does the Selection.Range.PageSetup.FooterDistance property give you what you
want?

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
> Hi all,
>
[quoted text clipped - 29 lines]
> TIA,
> Renate