Dim myWS as excel.worksheet
Dim myShape as Excel.Shape

Set myWS = ActiveSheet
Set myShape = myWS.Shapes("EnterShapeName")

With myShape
.LockAspectRatio = msoFalse
.width = 500
.height = 300
end with

--
HTH,

Barb Reinhardt



"Gotroots" wrote:

I want to use a command button to resize an image in a worksheet. I tried to
generate the code by recording a macro. However I have just leaned this is
not possible using Office 2007.

Most great full if someone could assist with supplying the code for this.