如何移动一个形状而不select它？

如何在一张纸上移动任何形状而不select它？

如果我使用：

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

它出现在形状周围的版本边界。

Answer 1

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

Answer 2

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