再背面にペーストするPowerPointマクロ

やりたいこと

PowerPointでペーストすると、必ず最前面になってしまう。
最初から、再背面に貼り付けたい場合に、一発で操作したい。

コード

Module1

Private Sub pasteBack()

    On Error GoTo myErr

    ActiveWindow.Selection.SlideRange.Shapes.Paste.ZOrder msoSendToBack

    Exit Sub
myErr:
    Debug.Print "クリップボードが空"
End Sub

参考

[VBA]PowerPointの指定したスライドへExcelグラフを最背面で貼り付けるExcel/VBA