Show UserForm InkPicture in Sheet

[nickwoowoo]

Hi,

I've been trawling forums for two days now for an answer to this, but with no luck.

All I want is the ability for a user to draw within a UserForm, and then what he/she draws to be displayed within a worksheet.

InkPicture would seem the correct control to be using, but I can't find a way for it to then be displayed in a worksheet.

My simplest attempt was:

Private Sub CommandButton1_Click()
Sheet1.InkPicture1.Picture = InkPicture1.Picture
End Sub

Which resulted in no errors, but didn't do anything.

Does anyone have an answer?

 

[tlowry]

Welcome to MrExcel! Hope this helps...

try:

Private Sub SaveInkToActivesheet()
  Me.InkPicture1.Ink.ClipboardCopy , ICF_Bitmap
  ActiveSheet.Paste
End Sub

 

[nickwoowoo]

Thanks tlowry,

I did find a way in the end. Meant to post it here sooner.

With Sheet1.InkPicture1
      .InkEnabled = False
      Set .Ink = Me.InkPicture1.Ink
      .InkEnabled = True
   End With