本示例在活动窗口中将选定的图形(如:立方体)设置为可移动并调整该图形,但不能重新设置其比例。

ActiveWindow.Selection.ShapeRange.LockAspectRatio = ksoTrue