如何移动形状而不选择它？

Question

如何在不选择的情况下移动工作表中的任何形状？

如果我使用：

    ActiveSheet.Shapes.Range(Array("Picture 18")).Select
    Selection.ShapeRange.IncrementLeft -76"

它似乎是形状周围的版本边框。

Answer 1

result

Answer 2

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