Restrict Cursor Movement Inside a Userform

[E55exb0y44]

Just a little project that I keep coming back to. I have created a userform and VBA code to capture a signature using a drawing tablet, resizing the image and placing it in a particular cell. However, I am at a loss on how to restrict the cursor movement to inside the userform eg inside the red border below.

Here is the code that I am using for the userform. Any help would be appreciated

Sub collect_signature()

Dim MyCell As Range
Set MyCell = ActiveCell
'Dim and call userform
Dim myUserForm As Signature_pad

Set myUserForm = New Signature_pad
ClipCursor_To_Upcoming_OwnedWindow = True
myUserForm.Show
ClipCursor_To_Upcoming_OwnedWindow = False
Set myUserForm = Nothing

'insert image/signature from temp file into application active sheet

Set SignatureImage = Application.ActiveSheet.Shapes.AddPicture(File, False, True, 1, 1, 1, 1)

'image/signature position

SignatureImage.Top = MyCell.Top
SignatureImage.Left = MyCell.Left

'scale image/signature

SignatureImage.Height = MyCell.Height
SignatureImage.Width = MyCell.Width

'delete temp file
Kill File

End Sub

 

[Domenic]

See if this helps...

Limit Cursor Movement inside a Userform

Hello All, I'm looking for code to limit the mouse cursor to only the boundries of a userform until the userform is closed. I have found some vb code for this as an API, but cannot seem to get the code to work. I'm using Excel 2002, Windows XP, and the error I'm encountering is: "Compile...

www.mrexcel.com