Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Type = cdrBitmapShape Then With s.Bitmap If .SizeWidth < 400 And .SizeHeight < 400 Then .Inflate (400 - .SizeWidth)/2, (400 - .SizeHeight)/2 End If End With End If Next sEnd Sub