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

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

2 个解决方案

#1

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

#2

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