Simon Lloyd;263738 Wrote:
What size is it now? where is it to be placed?
This will resize the image, however you have to play around with the
settings!!

With ActiveSheet
.Shapes("Picture 1").Select
Selection.ShapeRange.ScaleWidth 0.86, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.86, msoFalse, msoScaleFromTopLeft
End With


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=72128