PowerPoint巨集，將物件移到最前面

查詢物件名稱

Sub Who_AM_I()
    With ActiveWindow.Selection.ShapeRange(1)
        MsgBox .Name
    End With
End Sub

將物件移到最前面

Sub Bringtofront()
    ActivePresentation.Slides(第幾張投影片).Shapes("物件名稱").ZOrder msoBringToFront
End Sub