MERCI BEAUCOUP!
Plus que quelque ligne de code et mon projet sera terminé.
Voici des lignes de code permettant de tracer une ligne avec des flèches aux chaque extrémités. Cette ligne représente l’écartement entre curseur.
Ce code ne marche pas et je n’arrive pas à savoir pourquoi.
ActiveDatabase.ActiveObject.Cursor(1).Active = True
point1 = ActiveDatabase.ActiveObject.ActiveCursor.PositionX
ActiveDatabase.ActiveObject.Cursor(2).Active = True
point2 = ActiveDatabase.ActiveObject.ActiveCursor.PositionX
With ActiveDatabase.ActiveObject.Pages(1).AddLine(point1, -20, point2, -20)
.LineFormat.Arrowheads = fpArrowheadsBoth
.Select
End With
ActiveDatabase.ActiveObject.Selection.Collapse
ActiveDatabase.ActiveObject.Pages(1).Item(1).Select
ActiveDatabase.ActiveObject.Selection.Collapse
Merci de votre aide et de votre patience…
