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