returning if picture object is in selection

Topic

New Reply

I need to determine if a picture object or logo is stored in a header.
I have the following code.

Set rangeHeader = ActiveDocument.Sections(x).Headers(wdHeaderFooterFirstPage).Range
rangeHeader.Select

If (Selection.Type = wdInlineShapeEmbeddedOLEObject) Or (Selection.Type = wdInlineShapeLinkedOLEObject) Or (Selection.Type = wdInlineShapeLinkedPicture) Or (Selection.Type = wdInlineShapeOLEControlObject) Or (Selection.Type = wdInlineShapePicture) Then

MsgBox (“Pic found”)
‘perform other code

The problem I’m having with the above code is when I test on a current document that has a logo returns true.
However when I testing on a doc that doesnt have logo in header still returns TRUE.

Does anyone know/have code to obtain the correct information.
Thanks in advance!
Diana

Reply | Quote

Replies

Hi Diana,

What about:

Set rangeHeader = ActiveDocument.Sections(x).Headers(wdHeaderFooterFirstPage).Range
If rangeHeader.InlineShapes.Count > 0 Then 'etc.

Gary

Reply | Quote

Thanks Gary – that worked –
If rangeHeader.InlineShapes.Count > 0 Then

I previoulsy had used the below code ‘Shapes’ & wasnt working.
intShapeCount = 0
intShapeCount = ActiveDocument.Sections(x).Headers(wdHeaderFooterPrimary).Shapes.Count
If intShapeCount = 0 Then
‘perform logic

Diana

Reply | Quote