CODEWITHSUNDEEP
excelvba
NicoJ
NicoJ

Reputation: 1

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.IncrementLeft -76"

it appears an edition border around the shape.

Upvotes: 0

Views: 1083

Answers (2)

Tim Williams
Tim Williams

Reputation: 166126

ActiveSheet.Shapes("Picture 18").IncrementLeft -76

Upvotes: 1

Nathan_Sav
Nathan_Sav

Reputation: 8531

Application.ScreenUpdating = False
Set s = Worksheets("sheet1").Shapes(1)
s.Left = 100
Application.ScreenUpdating = True

Upvotes: 0

Related Questions