Thread: vectors end to end to make network diagram

Hi All,
I have a list of 100 or more microwave radio links. These links collectively make a network.
Currently the practice is for people to update an excel list when links are planned, installed or deleted, they then manually add lines to a network drawing. This leads to errors - when the network drawing is not updated or incorrectly updated

The network has a start point and many hubs and daisy chains and end points.

Please see also attachments for better understanding
microwave network maps illustrates an example

The Vector zip from ozgrid shows how endToend vectors can be used which is sort of what I need.

Any ideas to point down the straight and narrow much appreciated


Cheers

Simon

ps
I have heard that excel can be used to drive vectors onto Google Earth using Lats and Longs; this would be ideal but well beyond what is needed.

why dont you use the coordinates of each plot?

Arrons vectors does it all
You just need to play around with the code

Code:

   Dim EndShape As New clsShape
    Dim vTable As Range
    
  '  Call Kill_Shapes ' Remove the clear shapes

    With OriginShape
        .x1 = 200 ' Change the start point
        .y1 = 200 ' Change the start point
        .Scalar = 10
        .Radius = 1
        .Rotation = 0
        
        .ShapeType = msoShapeOval
        .FillColor = Color.Green
        .FillTransparency = 0.5
        .LineColor = Color.Black  ' Change colour to suit
        .ShapeName = "<Start"
      ' .Draw 
    End With

Here's what I have after playing around for > 2 hours !!

I'm now of to the pentry to wipe off my forehead.

I must note that this is hacking in someone else's code and it needs optimization.
At least you can play around with it.

I do not know. If you step into the code with F8, what happens. Where is it giving an error?

here is a 2003 version. I'll ask Pike to have a look as well.

Don't give up, Simon ...

FYI the Error 70 is cause by trying to name a shape with one that is already in use.

Try the attached; run Main.

The code is pretty ugly.