Changing direction the arrow points when I draw it in with VBA.

[gxm204]

Hello, I am using VBA to animate movement between two points on a graph. I am also drawing an arrow to illustrate the movement. This macro works fine... I used the recorder for it, so there is probably some stuff to tidy.

My concern is that it is drawing the arrow pointed the opposite direction that I want. What command can I use in VBA to set the arrow to go the direction I want?

Here is my code. Thanks for taking a look.

Sub Between()
'
' Between Macro
'


'Dim time1, time2
    
    Range("E6").Select
    ActiveCell.FormulaR1C1 = "1000000"


time1 = Now
time2 = Now + TimeValue("0:00:01")
    Do Until time1 >= time2
        DoEvents
        time1 = Now()
    Loop
    


    ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 422, 202.5, 423, 223.5). _
        Select
        Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 1
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
End Sub

 

[pgc01]

Hi

You are using a property named .EndArrowheadStyle.
I don't have time to look into it now, but the first thing I'd do is to check if there a corresponding property for the other end, like .StartArrowheadStyle or BeginArrowheadStyle.

 

[gxm204]

Yes. There is a property -- .Flip msoFlipVertical that made it point the other way.
Thank you!