PowerPoint VBAでZOrder（重なり順）を操作する方法【初心者向け解決ガイド】

2025.10.06

PowerPointでスライドを作成していると、図形の重なり順（ZOrder）を調整したい場面がよくあります。例えば、後ろにある図形を前面に持ってきたい、またはその逆をしたいときです。特にVBA（Visual Basic for Applications）を使うと、これらの操作を自動化できて便利です。

今回は、PowerPoint VBAを使ってZOrderを操作する方法を、初心者の方にもわかりやすく解説します。

ZOrderとは？
VBAでZOrderを操作する基本的な方法
複数の図形のZOrderを一括で変更する方法
図形の位置に基づいてZOrderを変更する方法
よくある質問
今すぐ解決したい！どうしたらいい？
まとめ

ZOrderとは？

PowerPointのイメージ

ZOrderとは、スライド上の図形がどの順番で重なっているかを示すものです。例えば、図形Aが図形Bの前面にある場合、図形AのZOrderは図形Bよりも前になります。

PowerPointでは、図形のZOrderを以下のように操作できます

ここがポイント！

msoSendToBack最背面に移動
msoSendBackward1つ後ろに移動
msoBringForward1つ前に移動
msoBringToFront最前面に移動

VBAでZOrderを操作する基本的な方法

VBAを使って図形のZOrderを操作するには、以下のようなコードを使います

Sub MoveShapeToFront()

    Dim shp As Shape

    Set shp = ActivePresentation.Slides(1).Shapes("Rectangle 1")

    shp.ZOrder msoBringToFront

End Sub

このコードは、スライド1の「Rectangle 1」という名前の図形を最前面に移動します。

複数の図形のZOrderを一括で変更する方法

複数の図形のZOrderを一括で変更するには、以下のようなコードを使います

Sub MoveShapesToFront()

    Dim shp As Shape

    For Each shp In ActivePresentation.Slides(1).Shapes

        shp.ZOrder msoBringToFront

    Next shp

End Sub

このコードは、スライド1のすべての図形を最前面に移動します。

図形の位置に基づいてZOrderを変更する方法

図形の位置（LeftやTopプロパティ）に基づいてZOrderを変更するには、以下のようなコードを使います

Sub SortShapesByPosition()

    Dim shp As Shape

    Dim shapeArray() As Shape

    Dim i As Integer, j As Integer

    Dim tmpShape As Shape
    ' 図形を配列に格納

    For Each shp In ActivePresentation.Slides(1).Shapes

        If shp.Type = msoShapeRectangle Then

            i = i + 1

            ReDim Preserve shapeArray(1 To i)

            Set shapeArray(i) = shp

        End If

    Next shp
    ' 配列を位置に基づいてソート

    For i = 1 To UBound(shapeArray) - 1

        For j = i + 1 To UBound(shapeArray)

            If shapeArray(i).Top > shapeArray(j).Top Then

                Set tmpShape = shapeArray(i)

                Set shapeArray(i) = shapeArray(j)

                Set shapeArray(j) = tmpShape

            End If

        Next j

    Next i