Interpréter la direction d'une flèche

Bonjour à tous,

Contexte:

J'ai une flèche "DIR_B_CT_VAL" qui va toujours de la gauche vers la droite.

Je sélectionne cet objet par le code suivant:

ActiveSheet.Shapes.Range(Array("DIR_B_CT_VAL")).Select

Problème:

Je voudrai intégrer un code qui m'indique si la flèche est baissière, haussière ou neutre.

Question:

Peut-on identifier la position des extrémités gauche et droite de la flèche afin de les comparer et d'en déduire la direction ?

D'avance merci pour vos contributions.

Corduialement

Bonjour à tous,

J'ai fini par trouver une solution autre que d'interpréter la position des extrémités.

Mais je dois avouer que dans mes recherches je suis tombé sur un post d'un jeune mathématicien australien, que je remercie, et qui m'a inspiré la solution suivante :

        Me.Shapes.Range(Array("DIR_H_CT_VAL")).Select
        If Selection.ShapeRange.HorizontalFlip Then
            MsgBox "La " & Selection.Name & " est contraire à la chronologie."
        Else
            If Selection.ShapeRange.Height < 6 Then
                Range("H_CT_VAL") = "neutre"
            Else
                If Selection.ShapeRange.VerticalFlip Then
                    Range("H_CT_VAL") = "haussière"
                Else
                    Range("H_CT_VAL") = "baissière"
                End If
            End If
        End If