本示例在第一个窗口中将选定的图形的宽和高都设为100磅。
With Windows(1).Selection.ShapeRange
.Height = 100
.Width = 100
End With