Hi Claus

thanks for this fast response. The Paint object doesn't seem to be picking up the SigPic name . . . once it's inserted, if I select it, it's named "Object1" (and of course the number increments for each new Paint object I insert).

Perhaps the line of code that inserts the Paint object needs modifying, but I can't see where or how, it looks pretty good to me !!??

Set SigPic = ActiveSheet.OLEObjects.Add(ClassType:="Paint.Pictu re", Link:=False, DisplayAsIcon:=False).Activate


Cheers!

Steve



On Thursday, 25 February 2016 13:22:44 UTC, Claus Busch wrote:
Hi Steven,

Am Thu, 25 Feb 2016 04:38:13 -0800 (PST) schrieb :

So near and yet, so far . . . basically I have the code to get the signature in, what I need is some code to select the inserted object and resize it - or any alternative anyone can think of to achieve a signature from Paint in that cell.

try after inserting the

pictu

With SigPic
.Top = Range("B39").Top
.Height = Range("B39").Height
.Left = Range("B39").Left
.Width = Range("B39").Width
End With


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional