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

Dudu2

XLDnaute Barbatruc
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 ?
 

Pièces jointes

  • Classeur2.xlsm
    24.4 KB · Affichages: 7
Solution
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...

Dudu2

XLDnaute Barbatruc
Je comprends ce que tu sous-entends.
Eh bien, je pense que tu les dessines directement ou les fasse tourner manuellement ou les Flip par le code, selon la position de la flèche, tu auras toujours les mêmes valeurs de HorizontalFlip et VerticalFlip.
Sinon ce serait le chaos complet.
 

Discussions similaires

Statistiques des forums

Discussions
312 298
Messages
2 086 979
Membres
103 417
dernier inscrit
abaabdelghani