VB code needed to activate scribble pen excel 2010

[parmaboy79]

I've been building a database for my step daughters new business and have found this site a massive help when writing macros as i have very little knowledge when it comes to visual basic. I have created a constent form that clients need to fill in to record all their details etc into the database but what i wanted was a button that when pressed would turn the cursor into the scribble pen allowing the client to sign the constent form. the cell that would need to be signed is a merged cell f197:s197 on a sheet called new_client. i have tried to record the macro to see what code it uses but it doesnt seem to return any code if you just record the selection of the scrible pen. Any help would be greatly appreciated, im using excel 2010.

 

[Sozu21]

Hi,

Try this code out. You'll just have to make a command button for it. I called my command button Signature, but if you'd like a different name, just change the first line of the code to

Private Sub (name of button here)_Click()

Private Sub Signature_Click()
Application.CommandBars("Drawing").Controls("AutoShapes").Controls("Lines").Controls("Scribble").Execute
End Sub

 

[parmaboy79]

Hi Sozu21

Thank you very much for your reply, i had come accross that line of code before and tried without any success but after reading your post realised i had be assigning it as a normal macro to a standard inserted button i had created rather than an active x control, just tried and it worked great. Again thank you very much