本示例在第一个窗口中将选定的图形的上边和左边距离都为100磅。
With Windows(1).Selection.ShapeRange
.Top = 100
.Left = 100
End With