Quitter image d'esquisse VBA

Bonjour, j'ai réussi a automatiser l'importation d'une image sur un plan solidworks mais a la fin de la séquence l'image est sélectionnée et je n'arrive pas a quitter cette sélection via mon code.

Function codebarreDRAW(FCB As String, namePL As String)
                'Import of the barcode or QRcode on the solidworks plan
'Variable declaration
Dim myModelView As Object
Dim swModel As ModelDoc2
Dim swApp As SldWorks.SldWorks
Dim Errors As Long
Dim swLoadWarnings As Long
Dim Fplan As String
Dim L As Double
Dim H As Double
Dim value As Integer
Dim coef As Double
Dim part As Object
'Variable initialisation
Fplan = namePL & ".SLDDRW"
Set swApp = Application.SldWorks
'Draw window activation
Set swModel = swApp.ActivateDoc3(Fplan, False, swRebuildOnActivation_e.swRebuildActiveDoc, Errors)
Set part = swApp.ActiveDoc
Dim SkPicture As Object
'Insertion of the barcode or QRcode in the draw
Set SkPicture = part.SketchManager.InsertSketchPicture(FCB)
'Retrieving the barcode size
value = SkPicture.GetSize(L, H)
'Definition of the size and position of the bar code
SkPicture.SetSize L * coefAGRimg, H * coefAGRimg, True
SkPicture.SetOrigin PosX, PosY
End Function

 

J'aimerais simuler le clic sur le V vert.

Si quelqu'un a une idée je suis preneur.

 

Merci

1 « J'aime »

C'est bon j'ai trouvé, il faut rajouter a la fin :

 


part.EditSheet

 

1 « J'aime »

Content d'avoir pu t'aider! héhé ... Choisis la réponse qui t'a le plus aidé pour signaler que la solution a été trouvée ;)

2 « J'aime »