本示例先向 myDocument 添加一个椭圆形。如果该文档另外还有至少两个图形,则按照 Z 顺序将此椭圆形放置于倒数第二的位置。

Set myDocument = ActiveDocument
With myDocument.Shapes.AddShape(ksoShapeOval, 100, 100, 100, 300)
    While .ZOrderPosition > 2
        .ZOrder ksoSendBackward
    Wend
End With