Code to select only lines in a drawing

[XP]

Using Office 2003 and Windows XP;

Is there a way using code (or otherwise) to quickly select only the line
drawing objects on the current page. i.e. only lines, not boxes or other
shapes?

If possible could someone please post generic example code to do this?

Thanks in advance.

 

[Jean-Guy Marcil]

Using Office 2003 and Windows XP;

Is there a way using code (or otherwise) to quickly select only the line
drawing objects on the current page. i.e. only lines, not boxes or other
shapes?

If possible could someone please post generic example code to do this?

Just cycle the shape collection and select those that have a height equal to
zero.

 

[XP]

FYI, I was wanting to figure out how to send all lines to back and I thought
I needed an array, but then your post made me realize I could just set them
in the loop; also, I have vertical lines as well, so basing on what you
suggested I worked this out:

Private Function SendAllLinesBack()
'sends all drawing lines to back in zorder of objects:
Dim oSHP As Shape
For Each oSHP In ThisDocument.Shapes
If (oSHP.Height = 0 Or oSHP.Width = 0) Then
oSHP.ZOrder msoSendToBack
End If
Next oSHP
End Function

Thanks!

 

[Jean-Guy Marcil]

FYI, I was wanting to figure out how to send all lines to back and I thought
I needed an array, but then your post made me realize I could just set them
in the loop; also, I have vertical lines as well, so basing on what you
suggested I worked this out:

Private Function SendAllLinesBack()
'sends all drawing lines to back in zorder of objects:
Dim oSHP As Shape
For Each oSHP In ThisDocument.Shapes
If (oSHP.Height = 0 Or oSHP.Width = 0) Then
oSHP.ZOrder msoSendToBack
End If
Next oSHP
End Function

Glad that you worked it out!