Originally Posted by Bill Manville

The-jackal wrote:
Ok been using this but was wondering if I can get it to display the
picture at say 20% of its original size.


With Me.Shapes.AddPicture(stFile, True, True, Range("A16").Left, _
Range("A16").Top, Range("A16").Width, Range("A16").Width * 3 / 4)
.Name = "NewPic"
' the next 3 lines are new:
.LockAspectRatio = False
.ScaleHeight 0.2, True
.ScaleWidth 0.2, True
End With

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup