Unable to change image height, width, left, top in PowerPoint 2013

Hello experts,

I have an application that copies ranges/charts from Excel as images and pastes them into PowerPoint. I then run the image thru a subroutine to set the location within the slide. My problem is that this works just fine in PowerPoint 2010 but doesn't work in PowerPoint 2013. I don't get any error messages, but it bombs out of the sub immediately after pasting the image.

Here is the code of the sub in question:

Sub FormatShape(ppApp As PowerPoint.Application, ppSlide As PowerPoint.Slide, SHHeight, SHWidth, SHLeft, SHTop, LockRatio)
                 
    Dim ppShape As PowerPoint.ShapeRange

    Set ppShape = ppSlide.Shapes.Paste   'exits immediately after this!
        
    With ppShape
            
        If LockRatio = "True" Then
            .LockAspectRatio = msoTrue
        ElseIf LockRatio = "False" Then
            .LockAspectRatio = msoFalse
        End If
            
        .Height = SHHeight
        .Width = SHWidth
        .Left = SHLeft
        .Top = SHTop

    End With
    
    Set ppShape = Nothing
    
End Sub

Thanks Jeff. Unfortunately that didn't solve the problem. In fact, I can simply execute the code like shown below and it will still exit on the same row, regardless what the next line contains. It is almost as if it doesn't know what to do with ppShape. I've tried dimming ppShape as 'Shape', 'ShapeRange', and 'PowerPoint.Shape', but none of them even execute the paste line.

Sub FormatShape(ppApp As PowerPoint.Application, ppSlide As PowerPoint.Slide, SHHeight, SHWidth, SHLeft, SHTop, LockRatio)
                 
    Dim ppShape As PowerPoint.ShapeRange

    Set ppShape = ppSlide.Shapes.Paste   'exits immediately after this!
            
    ppShape.Height = SHHeight
    ppShape.Width = SHWidth
    ppShape.Left = SHLeft
    ppShape.Top = SHTop
   
    Set ppShape = Nothing
    
End Sub

For what it's worth, I know I can workaround the issue using the code below, but I don't necessarily like this workaround as it seems too risky. It also doesn't answer why I can't set ppShape in my previous code sample.

Sub FormatShape(ppApp As PowerPoint.Application, ppSlide As PowerPoint.Slide, SHHeight, SHWidth, SHLeft, SHTop, LockRatio)
                                

    If Application.Version = 14# Then
        ppSlide.Shapes.Paste.Select           'works in Office 2010 but not in Office 2013
    ElseIf Application.Version = 15# Then
        ppSlide.Shapes.Paste                  'works in Office 2013 but not in Office 2010
    End If
                       

    If LockRatio = "True" Then
        ppApp.ActiveWindow.Selection.ShapeRange.LockAspectRatio = msoTrue
    ElseIf LockRatio = "False" Then
         ppApp.ActiveWindow.Selection.ShapeRange.LockAspectRatio = msoFalse
    End If
            

    ppApp.ActiveWindow.Selection.ShapeRange.Height = SHHeight
    ppApp.ActiveWindow.Selection.ShapeRange.Width = SHWidth
            
    ppApp.ActiveWindow.Selection.ShapeRange.Left = SHLeft
    ppApp.ActiveWindow.Selection.ShapeRange.Top = SHTop

End Sub