Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
insert from paint & resize
Hi
I hope someone can help with this. I use the code below which launches MS Paint, the user then signs within Paint (using the Touchpad on a laptop) the macro then closes Paint and the signature is placed in cell B39. BUT . . . whatever I've tried it is never sized correctly - the graphic is usually too deep (the height of it is too high, so it's deeper than row 39 and 40). I've tried using the "Height" and "Width" options (and the top & left options) but they place the object in cell A1. The Sendkeys lines in the code work OK to get the box in and at a decent size but always I've also tried using vba to adjust the row heights before and after the object is inserted and it's still not quite right. So near and yet, so far . .. . any help greatly appreciated! Steve Range("B39").Select Set SigPic = ActiveSheet.OLEObjects.Add(ClassType:="Paint.Pictu re", Link:=False, DisplayAsIcon:=False).Activate SendKeys "%f" SendKeys "%e" SendKeys "%i" SendKeys "%w" SendKeys "4.25" SendKeys "{TAB}" SendKeys "1" SendKeys "{Enter}" |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Insert image from paint | Excel Programming | |||
How do I insert and resize a column on only one worksheet page? | Excel Discussion (Misc queries) | |||
Macro to insert multiple images at specific cells and resize all i | Excel Programming | |||
Insert, position, and resize a picture w/ Macro | Excel Discussion (Misc queries) | |||
auto resize when insert large image to excel | Excel Worksheet Functions |