Arrow Direction

[CalvinGraham]

So I've got two tables and I wanted to have an arrow between them, showing the flow between them of which rows the user has selected

Anyway, I can set the arrow shape's heights/position easily enough with .top and .height but I can't see how to tell it which way to face. Ie is it: / or \

The code that Excel records has .msoFlipVertical but you need to know the existing property to know whether to flip it over. I could delete and redraw each time or maybe store it hidden in the left/right property but these seem overcomplicated. Is there not a simple property?

 

[MickG]

Have a play with this:-

MsgBox ActiveSheet.Shapes("Autoshape 1").HorizontalFlip > -1
ActiveSheet.Shapes("Autoshape 1").Flip msoFlipHorizontal

 

[CalvinGraham]

Great, thanks. For anyone else stumbling along this thread, I entered this to adjust the line:

With ActiveSheet.Shapes("Line_TableToTable")
        .Top = IIf(StartHeight < EndHeight, StartHeight, EndHeight)
        .Height = IIf(StartHeight < EndHeight, EndHeight - StartHeight, StartHeight - EndHeight)
        'the arrow has to face the right way, ie / or \
        'check what way it should face and flip it if necessary
        '.VerticalFlip = true means the shape has been flipped and is currently a / type arrow
        If StartHeight > EndHeight Then
            'it should be /
            If .VerticalFlip = False Then
                .Flip msoFlipVertical
            End If
        Else
            'it should be \
            If .VerticalFlip = True Then
               .Flip msoFlipVertical
            End If
        End If
    End With