Procédure sur InkPicture qui plante mystérieusement

Bonsoir,

J'utilise un composant InkPicture sur une feuille qui me sert à saiir une signature manuscrite sur une feuille.

Pour effacer une signature saisie sur le composant, j'utilise cette procédure :

Sub Bouton2_Cliquer()
 With Sheets("Feuil4").InkPicture1
'Désactive l'encre
      .InkEnabled = False
'Efface toute l'encre de ma Inkpicture
      .Ink.DeleteStrokes
'Active l'encre
      .InkEnabled = True
   End With
End Sub  

Sauf que ....ça plante sur mon fichier que vous trouverez en PJ . La même procédure utilisée sur un autre classeur fonctionne, c'est à dire juste le composant et un bouton pour l'effacement du contenu (?)

Merci de votre aide ! ;o)

Bonjour,

J'ai trouvé la solution à mon problème : Insérer une signature manuscrite dans une feuille (voir fichier joint).

Il me reste à solutionner l'effacement de la signature par code, une fois que le document a été enregistré avec le signature.

;o)