Hi,

Am Wed, 25 Sep 2013 14:19:11 +0100 schrieb Nabeel K:

appreciative for your prompt response,thank you. Still facing a problem
tho with some of the pictures which have the lock aspect ratio and
relative to original picture size option ticked. Either width or height
have changed but not both.

try:
Sub Pictures2()
Dim sr
ActiveSheet.Shapes.SelectAll
Set sr = Selection.ShapeRange
With sr
.LockAspectRatio = False
.Height = Application.CentimetersToPoints(0.98)
.Width = Application.CentimetersToPoints(1.98)
End With
End Sub


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2