[VBA]Tracage d'une flêche
Bonjour,
je suis entrain de faire un traçage de flèche de ce tuto la
J'ai quelque soucis :
dans la fonction TraceFlch j'ai un souci avec Couleur je le remplace par LngBlck car je veux que mes fleche soit noire :aie:
Synthaxe d'origine :
Code:
1
2
3
4
5
6
7
8
9
10
11
| Function TraceFlch(ByVal Couleur As Long, ByVal Taille As Long, ByVal Angle As Double)
Dim v As Variant
Const CoeffTaille As Double = 0.1 'Taille de la pointe : 10% longueur fleche
Const DecalAngle As Double = 15 'Angle de la pointe : 5° par rapport au corps
'Définition de la couleur
trCorps.BorderColor = Couleur
trGauche.BorderColor = Couleur
trDroit.BorderColor = Couleur |
J'ai donc modifier :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Function TraceFlch(ByVal Taille As Long, ByVal Angle As Double)
Dim v As Variant
Const CoeffTaille As Double = 0.1 'Taille de la pointe : 10% longueur fleche
Const DecalAngle As Double = 15 'Angle de la pointe : 5° par rapport au corps
Dim lngBlack As Long
lngBlack = RGB(0, 0, 0)
'Définition de la couleur
trCorps.BorderColor = lngBlack
trGauche.BorderColor = lngBlack
trDroit.BorderColor = lngBlack
... |
Le souci est qu'il me sort une erreur sur cet ligne est je ne sait pas pourquoi :?
