本示例在第一个窗口中将选定的图形的上边和左边距离都为100磅。

With Windows(1).Selection.ShapeRange
    .Top = 100
    .Left = 100
End With