本示例在第一个窗口中将选定的图形的宽和高都设为100磅。

With Windows(1).Selection.ShapeRange
    .Height = 100
    .Width = 100
End With