from_Shape = Shap.Connects.Item(1).ToSheet

[Caroline]

[from_Shape] --> [to_Shape]

For Each Shap In ActivePage.Shapes
If (Shap.Style = "Connector") Then
from_Shape = Shap.Connects.Item(1).ToSheet
to_Shape = Shap.Connects.Item(2).ToSheet

Supposedly, from_Shape and to_Shape should be connected by
a dynamic connector AShape, yet, their type is Variant/String.

What is wrong with my code?
How can I find both shapes at the edges of an arrow?

 

[Al Edlund]

consider using the V2002 SDK available on MSDN. It has some nice routines
for analyzing connections.
Al