i am trying to resize all objects on a sheet. is there a way to assign a
variable, all the objects, rather then using the code below?


'resize charts
--- ActiveSheet.Shapes.Range(Array(4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
15, 16, 17, 18, 19, 20)).Select

Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Width = 173.25
Selection.ShapeRange.Height = 102#


Thanks for your help