position dessin erronée

[guillou25]

Bonjour, je souhaitais dessiner une sorte de "chapeau" pour un angle à un endroit bien spécifique : la position du curseur, j'ai donc tapé ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub pos()
 
Dim Pt As POINTAPI
Dim abscisse As Long
Dim ordonnee As Long
 
If GetCaretPos(Pt) = 1 Then
    abscisse = Pt.x
    ordonnee = Pt.y
End If
 
 
 
   With ActiveDocument.Shapes.BuildFreeform(msoEditingAuto, abscisse , ordonnee )
        .AddNodes msoSegmentLine, msoEditingAuto, abscisse + 50, ordonnee - 30
        .AddNodes msoSegmentLine, msoEditingAuto, abscisse + 100, ordonnee 
        .ConvertToShape.Select
    End With
 
End Sub

Cependant, le dessin n'est pas à l'endroit voulu...
Quelqu'un pourrait-il m'aider pour voir où est le problème?
Merci d'avance
Guillou

[Heureux-oli]

Encore avec ton chapeau, même circé ne veut pas !!

Pour pouvoir te répondre correctement, il me manque certaines choses.

Que contient ton PointApi ?

Je ne trouve rien sur la fonction GetCaretPos()

[guillou25]

Je sais, je suis embêtant ! Voici ce que j'ai déclaré :

Code :

1
2
3
4
5
Private Declare Function GetCaretPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Integer
Private Type POINTAPI
    x As Long
    y As Long
End Type

Merci de votre aide