Shapes have a Height and Width property.

for each shp in ActiceSheet.Shapes
with shp
.Height = 1.25 * .Height
.Width = 1.37 * .Width
End With
Next

these are also scalewidth and scaleheight properties

Also look at the LockAspectRatio property.

See help for details.

--
Regards,
Tom Ogilvy


"StevenS" wrote in message
...
I have a similar problem to Dennis. I am trying to get VB to set a scal
for
cells & shapes to suit the current users screen size. I run VB code to
change
the sizing of the shapes for the size shed the customer wants. I'm not
sure
of the code I need to do this.

Please help
--
SS