Collection turns Connect objects into Shapes?

[Mac]

Dim myConns As New Collection
Dim connxCol As Visio.Connects
Dim myConnect As connect, anotherConnect As Connect
Dim whyShape As Shape

Set connxCol = ActivePage.Connects
For Each myConnect In connxCol
myConns.Add myConnect
Next myConnect

For Each anotherConnect In myConns = HERE I GET 'Type Mismatch Error'
..
Next anotherConnect

For Each whyShape In myConns = THIS ONE LOOPS OK
..
Next whyShape

Why are Connect objects turned into Shape objects and how do I prevent this?

 

[Paul Herber]

Dim myConns As New Collection
Dim connxCol As Visio.Connects
Dim myConnect As connect, anotherConnect As Connect
Dim whyShape As Shape

Set connxCol = ActivePage.Connects
For Each myConnect In connxCol
myConns.Add myConnect
Next myConnect

For Each anotherConnect In myConns = HERE I GET 'Type Mismatch Error'

myConns is a collection
anotherConnect is of type Connect

 

[Mac]

Ok, so how do I define a Collection-Of-Connect-Types type? I've believed that
collection is a type-less container ...

 

[John... Visio MVP]

Dim myConns As New Collection
Dim connxCol As Visio.Connects
Dim myConnect As connect, anotherConnect As Connect
Dim whyShape As Shape

Set connxCol = ActivePage.Connects
For Each myConnect In connxCol
myConns.Add myConnect
Next myConnect

For Each anotherConnect In myConns = HERE I GET 'Type Mismatch Error'
.
Next anotherConnect

For Each whyShape In myConns = THIS ONE LOOPS OK
.
Next whyShape

Why are Connect objects turned into Shape objects and how do I prevent
this?

Try just using Visio.* objects rather than collections and connect. (use
VISIO.connect)

John... Visio MVP

 

[Mac]

Well, I need a container for Connect objects satysfying certain criteria ...

 

[John... Visio MVP]

Visio.Connects is a collection of Visio.connect objects.

http://msdn.microsoft.com/en-us/library/aa175543(office.11).aspx

What are your special criteria?

John... Visio MVP

 

[Paul Herber]

Ok, so how do I define a Collection-Of-Connect-Types type? I've believed that
collection is a type-less container ...

as John says, and as you have for your conncCol, set the type to
Visio.Connects

 

[John... Visio MVP]

as John says, and as you have for your conncCol, set the type to
Visio.Connects


Regards, Paul Herber, Sandrila Ltd.
Electronics for Visio http://www.electronics.sandrila.co.uk/

I'd also define myConn as Visio.Connects

John... Visio MVP