Show UserForm InkPicture in Sheet

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?

You may transfer the Ink between control but you must set the InkEnabled property of the target control to False before you do so:

Please Login or Register  to view this content.

Amazing. Works perfectly.

Thanks Izandol

You are welcome. It was an interesting experiment as I have not used this control before now.

I tried this but it didn't work. I need the drawing made in the UserForm InkPicture box to go to the last row available on column 4. This is what I have created for this but results in an error:

Private Sub CommandButton3_Click()

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

UserForm1.InkPicture1.Picture = InkPicture1.Picture
Dim LastRow As Object

Set LastRow = Sheet1.Range("a65536").End(xlUp)

LastRow.Offset(1, 2).Value = InkPicture1.Ink

End Sub