How to Move a Shape Without Selecting It?
How Can I Move Any Shape in a Sheet Without Selecting It? If I Use: Activesheet. Shapes. Range(Array("Picture 18")). Select Selection. Shaperange...
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