Rysunek z makro notą

Macro
1

Mam makro do szybkiego wstawiania adnotacji w płaszczyźnie, ale brakuje mi pozycji, jak przy przeciągnięciu, którego nie mogę znaleźć, więc szukam pozycji X Y jak na pasku zadań SolidWorks

Sub Note()
Dim swApp As Object
Dim Part As Object
Dim myModelView As Object
Dim myBlockDefinition As Object
Dim myAnnotation As Object
Dim URL_0 As String
Dim URL_1 As String
Dim choix As String


Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView

URL_0 = "C:\Users\xxx\"

choix = InputBox("1 : Découpe_insert_hex.SLDBLK" & vbCrLf & _
                 "2 : Gousset.sldnotestl" & vbCrLf & _
                 "3 : Soudure.SLDBLK" & vbCrLf & vbCrLf & _
                 "Entrez le numéro du bloc à insérer", "Choix du bloc")

Select Case choix
    Case "1": URL_1 = URL_0 & "Découpe_insert_hex.SLDBLK"
              Echelle = 1
    Case "2": URL_1 = URL_0 & "Gousset.sldnotestl"
              Echelle = 1
    Case "3": URL_1 = URL_0 & "Soudure.SLDBLK"
              Echelle = 0.05
    Case Else: Exit Sub
End Select

If choix = 2 Then
Set myAnnotation = Part.Extension.InsertAnnotationFavorite(URL_1, X_cd, Y_cd, 0)
Else
Set myBlockDefinition = Part.SketchManager.MakeSketchBlockFromFile(Nothing, URL_1, False, Echelle, 0)
End If

End Sub

Chcę uchwycić na płaszczyźnie pozycję kursora po kliknięciu

na przykład mam userform2, którego myślałem, że użyję w trybie niemodalnym, klikam na arkusz, wizualizuję pozycję X i Y, waliduję i używam współrzędnych

Private Sub CommandButton1_Click()
'OK

Call Note
End Sub

Private Sub TextBox1_Change()
'X
End Sub

Private Sub TextBox2_Change()
'Y
End Sub

CAPTURE 000717

Nie mogę znaleźć kodu

2

Na marginesie mam ten fragment kodu:

Public X                        As Double
Public Y                        As Double
Public str                      As String        
       posX = width - posX
        posY = height - posY
        insertionNote swModel, posX, posY, str

Zobaczymy, czy to dotyczy bloku.

3

Chcę uchwycić pozycję kliknięcia myszką, ale nie widzę, jak to zrobić tym kodem

4

Witam;

Pewnie jakiś trop: