How to remove Connections between shape

[Martin]

HI,

I want a shape to be able to connect to only another kind
of shape.

So, if a new connection is added
(application_connectionsAdded Event), i test if the
connected shapes (MyConnect.FromSheet, Myconnect.ToSheet)
can be connect together. If not i would like to remove
connections between shapes.

Do you know how i can do that?

I am able to check if shapes can be connect. I only want
to know how to remove connections between shapes?

Thanks!

 

[Reinier Post]

I am able to check if shapes can be connect. I only want
to know how to remove connections between shapes?

What about

Public Sub Disconnect(c As Visio.Shape)

c.CellsU("BeginX") = c.CellsU("BeginX")
c.CellsU("BeginY") = c.CellsU("BeginY")

End Sub