本示例将活动文档中图形3 置于 Z 顺序中倒数第二的位置(如果文档中至少还有另一个图形)。
With ActiveDocument.Shapes(3)
While .ZOrderPosition > 2
.ZOrder ksoSendBackward
Wend
End With