Dessiner une ligne

[bernardrustrel]

Bonjour à tous
Après avoir dessiner une première une ligne, j'aimerais pouvoir en dessiner une autre. Cette derniere pourra étre décaler de n cm( tant en x qu'en y , début et fin) par rapport à la première.
mon souci est de pouvoir exprimer (en vba) cette notion de distance par rapport à la première ligne dessinée.

Merci par avance.

Cordialement

 

[job75]

Re : Dessiner une ligne

Bonjour,

La question n'est pas bien claire.

Si l'on dessine une ligne avec le code :

ActiveSheet.Shapes.AddLine BeginX, BeginY, EndX, EndY

on connaît a priori les 4 paramètres BeginX, BeginY, EndX, EndY qui définissent sa position.

Pour tracer la 2ème ligne, ajouter les distances voulues à ces paramètres...

A+

 

[bernardrustrel]

Re : Dessiner une ligne

merci de votre réponse Job75.
Une fois cette premùiere ligne dessiner je veux maintenant mettre une ligne parrallele à cette premiere ligne par exemple à 2 cm de cette premiere. Comment puis je evaluer cette valeur de 2 cm par rapaport aux coordonnées de la première ligne.

Merci à vous

 

[job75]

Re : Dessiner une ligne

Re,

Il s'agit d'un problème de géométrie (analytique), mais comme déjà dit il n'est pas bien exposé.

En effet, si la 2ème ligne est à 2 cm de la 1ère, on peut la faire glisser sur elle-même, elle sera toujours à 2 cm. Il y a donc une infinité de solutions pour trouver ses extrémités.

Précisez donc ce que vous voulez faire Edit : en joignant un fichier où l'on verra les 2 lignes dessinées.

A+