How can I move any shape in a sheet without selecting it?
If I use:
ActiveSheet.Shapes.Range(Array("Picture 18")).Select
Selection.ShapeRange.IncrementLeft -76"
it appears an edition border around the shape.
2 Answers
ActiveSheet.Shapes("Picture 18").IncrementLeft -76
Application.ScreenUpdating = False
Set s = Worksheets("sheet1").Shapes(1)
s.Left = 100
Application.ScreenUpdating = True