Shapes in header

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Sander Lablans - 31 Jul 2003 14:07 GMT

Can someone tell me if it is possible to access the properties of shapes
that are 'hidden' in the header of a word-document, without having to use
the following code:

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
&
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Example:
---------------------------------
Sub test()

Dim shape As Variant

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

For Each shape In
ActiveDocument.ActiveWindow.Selection.HeaderFooter.Shapes

Debug.Print shape.Name

Next shape

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub
----------------------------------

I would think that it is possible to access those shapes directly, instead
of having to revert to the header/footer view.

I am using Word2000.

Thx,

Sander

Reply to this Message

Dave Lett - 31 Jul 2003 14:39 GMT

Hi Sander,

You can get at the inlineshapes collection from a range object, as in the
following:

Dim oRng As Range
Dim oShp As InlineShape
Set oRng = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range

For Each oShp In oRng.InlineShapes
Debug.Print oShp.Height
Next oShp

However, I'm not sure how you'd od that with a shapes collection.

HTH

> Can someone tell me if it is possible to access the properties of shapes
> that are 'hidden' in the header of a word-document, without having to use
[quoted text clipped - 32 lines]
>
> Sander

Reply to this Message