Send Image to Back

[John Wilson]

Try this (Picture should be selected)

Sub pic()
    Dim opic As Shape
    Set opic = ActiveWindow.Selection.ShapeRange(1)
    With opic
        .LockAspectRatio = True
        .Height = ActivePresentation.PageSetup.SlideHeight
        .ZOrder (msoSendToBack)
        .Left = 0
        .Top = 0
    End With
End Sub