InkPicture Control becomes disabled after being redrawn

[scottadoyle]

I dynamically create an InkPicture control in the following manner

    Set oObject = ActiveSheet.OLEObjects.Add(ClassType:="msinkaut.InkPicture.1", Link:=False, _            DisplayAsIcon:=False, Left:=myCell.Left, Top:=myCell.Top, _
            Width:=myCell.Width - 1, Height:=myCell.Height - 1)

After creating it and setting its properties such as InkEnabled = True I am able to add strokes (write on it). Once I scroll the control off the page then go back to it I am no longer able to add strokes. Before I scroll off the screen I can change the editingmode property from InkOverlayEditingMode.IOEM_Ink to InkOverlayEditingMode.IOEM_Delete or ...IOEM_Select. This allows me to change between being able to create new strokes, erase the existing strokes or select only but as mentioned earlier once I scroll the control off the screen or move to another sheet and come back I can no longer add ink even though the InkEnabled is set to true and editingmode is set to ...IOEM_Ink.

I am running Excel 2016. When ran in Excel 2010 it does not do this although in 2010 once I set InkEnabled to False I can no longer apply new ink even if I set InkEnabled back to true.

 

[RoryA]

Does it work properly on a userform? Activex controls on worksheets have always been a little unreliable.

 

[scottadoyle]

Rory,

Thanks for the reply. I don't believe that using the control on a userform is going to be an option.
I am trying to create a workbook that has an audit trail sheet. Whenever the user changes a value in the workbook it will be recorded in the audit trail sheet and on that same row an InkPicture control is created to allow them to sign.

Any other suggestions are welcome.

I might try adding a double-click event to the control at creation that will check if the control has any ink and if not deletes the control and creates a new one in its place. So if the user fails to sign and afterwards is unable to sign they can double-click the control and a new one will be created for them.

 

[RoryA]

What you can do is copy the ink (from the userform) as a picture and then paste that onto the worksheet? The code is fairly simple:

    Me.InkPicture1.Ink.ClipboardCopyWithRectangle Me.InkPicture1.Ink.GetBoundingBox, ICF_Bitmap
    ActiveSheet.Paste

for example.

 

[Neilawrence]

Did you find the solution to this? I have same issue.

Rory,

Thanks for the reply. I don't believe that using the control on a userform is going to be an option.
I am trying to create a workbook that has an audit trail sheet. Whenever the user changes a value in the workbook it will be recorded in the audit trail sheet and on that same row an InkPicture control is created to allow them to sign.

Any other suggestions are welcome.

I might try adding a double-click event to the control at creation that will check if the control has any ink and if not deletes the control and creates a new one in its place. So if the user fails to sign and afterwards is unable to sign they can double-click the control and a new one will be created for them.

 

[scottadoyle]

Did you find the solution to this? I have same issue.

I did what RoryA suggested. I put it in a user form and copied it from the user form to the worksheet then protected the sheet to prevent modification

 

[Neilawrence]

Thanks alot man! . I placed in user form. Now trying to copy paste from the user form to sheet and the paste option is grayed put. What do I do?

I did what RoryA suggested. I put it in a user form and copied it from the user form to the worksheet then protected the sheet to prevent modification

 

[scottadoyle]

Thanks alot man! . I placed in user form. Now trying to copy paste from the user form to sheet and the paste option is grayed put. What do I do?

Are you using vba? Since you are referring to the paste option being greyed out I take it that you are trying to paste manually?


I copy the signature with the following code.
Me.InkPicture1.Ink.ClipboardCopyWithRectangle Me.InkPicture1.Ink.GetBoundingBox, 64

Then I select a cell on the sheet where I want to paste it and just paste.
myCell.Select
ActiveSheet.Paste