Sub ChartAsPicture()

    Dim PPApp As PowerPoint.Application
    Dim PPPres As PowerPoint.Presentation
    Dim PPSlide As PowerPoint.Slide
    Dim obJChart As Shape '--------------------------------ИЗМЕНИЛА ТИП
    Dim objPasted As Variant
    '--------------------------------ИЗМЕНИЛА
    Set obJChart = ActiveSheet.Shapes("Client111")
    If obJChart Is Nothing Then
        MsgBox ("Выберите график")
        Exit Sub
    End If
    
    On Error Resume Next
    
    Set PPApp = GetObject(, "Powerpoint.Application")
    
    If PPApp Is Nothing Then
        MsgBox ("Нет активной презентации")
        Exit Sub
    End If
    
    ' Reference active presentation
    Set PPPres = PPApp.ActivePresentation
    
    If PPPres Is Nothing Then
        MsgBox ("Нет активной презентации")
        Exit Sub
    End If
    
    ' Reference active slide
    Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
    
    If PPSlide Is Nothing Then
        MsgBox ("Выберите слайд")

        Do While PPSlide Is Nothing
            Set PPSlide = PPPres.Slides _
            (PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
            DoEvents
        Loop
    End If
    
    On Error GoTo 0
    
    obJChart.Copy'--------------------------------ИЗМЕНИЛА
    'Просто подсократила
    With PPSlide.Shapes.PasteSpecial(ppPasteShape)
        .Align msoAlignCenters, True
        .Align msoAlignMiddles, True
        .Left = .Left - 30
        .Top = .Top + 20
        .Ungroup
    End With
End Sub