【Excel】【VBA】VBAで図形を最背面に移動させる方法

VBAで図形を最背面に移動させる方法についてです。

簡単な例は下記です。
(ループですべてのオブジェクトに対して処理を行うのであまり意味はありませんが、、、)

    'オートシェープの数だけ繰り返す
    For Each sh In ActiveSheet.shapes
      '最背面へ移動する
      Sh.ZOrder msoSendToBack
    Next sh

ちなみに最背面だけでなく、前面にも移動できます。

プロパティの一覧は次の通りです。

プロパティ	値	説明
msoBringToFront	0	最前面へ。
msoSendToBack	1	最背面へ。
msoBringForward	2	前面へ。
msoSendBackward	3	平面へ。