本示例将活动文档中图形3 置于 Z 顺序中倒数第二的位置(如果文档中至少还有另一个图形)。

With ActiveDocument.Shapes(3)
    While .ZOrderPosition > 2
        .ZOrder ksoSendBackward
    Wend
End With