通过VBA怎么将肘形连接符置于顶层或底层

[shi3590]

昨天的颜色变换问题解决了。谢谢。
现在遇到了新的问题，有3个肘形连接符的指向为一个矩形，当变换颜色后，有底层和顶层的颜色覆盖问题。
帮忙看下怎么样才能将肘形连接符在变换颜色后立刻置于顶层，谢谢。

[一如既往哈]

Sheet1.Shapes("肘形连接符 1").ZOrder msoBringToFront

[一如既往哈]

上面那个置于顶层，下面是最底层： Sheet1.Shapes("肘形连接符 1").ZOrder msoSendToBack