In diesem Beispiel wird in myDocument eine Ellipse eingefügt und anschließend an der vorletzten Position in der Z-Reihenfolge positioniert, wenn in dem Dokument noch mindestens eine weitere Form existiert.
Set myDocument = Worksheets(1) With myDocument.Shapes.AddShape(msoShapeOval, 100, 100, 100, 300) While .ZOrderPosition > 2 .ZOrder msoSendBackward Wend End With