XL 2016 VBA - Déterminer la pente de la Forme ligne ou flèche ou mieux son équation

[Dudu2]

Bonjour,

J'ai 2 Shapes msoLine.
Toutes les 2 ont les mêmes caractéristiques de position (Left, Top) mais ont des pentes opposées.
Comment puis-je déterminer la pente (ascendante ou descendante) de la ligne d'une Shape msoLine ?

 

[sousou]

Bonjour
essai MsgBox .VerticalFlip = 0 ou-1

 

[Dudu2]

Merci @sousou, pour cette propriété qui fonctionne.
- msoTrue pour une pente positive,
- msoFalse pour une pente négative.

 

[TooFatBoy]

Bonjour,

- msoTrue pour une pente positive,
- msoFalse pour une pente négative.

Are you sure ???

 

[Dudu2]

I checked it by trying.
Did you try ?

 

[TooFatBoy]

I checked it by trying.
Did you try ?

Je n'ai pas vraiment compris #3, ni totalement compris #2, alors ce que j'ai essayé, c'est ça :

                MsgBox "TopLeftCell = " & .TopLeftCell.Address(0, 0) & vbCrLf & _
                       "Left = " & .Left & vbCrLf & _
                       "Top = " & .Top & vbCrLf & _
                       .VerticalFlip

Et ça m'affiche 0 pour le premier trait et -1 pour le deuxième alors qu'ils sont inclinés de la même façon (ou presque... ).

 

[Dudu2]

-1 c'est True ou msoTrue pour la ligne montante (de gauche à droite)
0 c'est False ou msoFalse pour la ligne descendante (de gauche à droite)

 

[TooFatBoy]

En pièce jointe, le classeur dans lequel j'ai effectué mon test.

 

[Dudu2]

En fait tu as raison, c'est plus compliqué que ça.

 

[Dudu2]

Il doit falloir composer avec le HorizontalFlip

 

[Dudu2]

On peut dire que j'ai bien ramé des heures pour obtenir ce que je voulais.
Mais là je crois que je l'ai. Voir le fichier joint.

 

[patricktoulon]

bonsoir @Dudu2

 

[Dudu2]

Bonjour @patricktoulon,
Ça ne suffit pas. J'ai "retourné" la ligne verte et regarde ce que ça donne.

 

[Dudu2]

De toutes façons le but était de pouvoir positionner sur la Shape ligne, une autre Shape rectangle soit à partir de son .Left (x) soit à partir de son .Top (y).

Il a donc fallu déterminer l'équation de la droite (y = ax + b) représentée par la ligne pour avoir:
- .Top (y) en fonction de .Left (y = ax + b)
- .Left (x) en fontion de .Top ('y = ax + b => y - b = ax => x = (y - b) / a)

Edit: Sauf cas particuliers:
- Lorsque l'équation de la droite est celle d'une parallèle à l'axe des ordonnées (x = c)
- Lorsque l'équation de la droite est celle d'une parallèle à l'axe des absysses (a = 0 ou encore y = b)
qu'il faut traiter spécifiquement.

C'est la détermination de cette 'équation et donc de a et de b qui m'a fait galérer un bon moment pour trouver les bons repères. J'en ai fait une fonction indépendante dans ce code et illustré avec le positionnement en .Left d'un rectangle sur la Shape ligne à partir d'un .Top figé de ce rectangle.

 

[patricktoulon]

Bonjour @Dudu2 j'ai fait quelques tests
j'étais parti sur le théorème de pitagooorre
mais en fait c'est encore plus simple
A°) ta shape(ligne) occupe une surface rectangle(ou carré)
B°) ta shape curseur à placer a un top différent

donc moi bêtement

1. j’enlève la différence de top au height du rectangle occupé par la shape ligne
2. je réduit par conséquent au prorata de la réduction du height le width de la surface occupé
3. il me suffit de prendre la différence de width des deux rectangles
4. après je l'applique en plus du left de la ligne a gauche ou a droite du rectangle (ligne) en fonction du verticalflip, moins bien évidemment la moitié de la largeur de la shape à placerpour la centrer sur le trait
5. le tout en partant du bottom bien sur

chez moi ça fonctionne
j'ajoute une shape verte pour le visuel du nouveau rectangle calculé