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

查詢物件名稱

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

Sub Who_AM_I()

With ActiveWindow.Selection.ShapeRange(1)

MsgBox .Name

End With

End Sub

將物件移到最前面

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

Sub Bringtofront()

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

End Sub

This entry was posted in Office, PowerPoint. Bookmark the permalink.