-
FlexPro
- Zoom sur FlexPro
- Fonctionnalités & Options
- Domaines d’application
- Tous les avantages
- Nouveau dans FlexPro 2021
- Testez FlexPro gratuitement
- FlexPro View OEM Freeware
- Conseils d’achat
- Login
- Langue
-
-
-
- +49 6894 929600
- infoweisang.com
- Google Maps
- Produits
- News
- Support
- Société
- Emplois
- Contact
- Login
- Langue
-
-
-
- +49 6894 929600
- infoweisang.com
- Google Maps
Accueil > Community > Automation and VBA > Liste déroulante avec objet différent en VBA > Reply To: Liste déroulante avec objet différent en VBA
![Bertrand SIMON](https://www.weisang.com/wp-content/uploads/2016/09/default_avatar.jpg)
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…