Zelleninhalt plus Grafik exportieren

[thomson]

Möchte jeden Inhalt meiner Tabellen in Powerpoin exportieren, das macht er auch sehr schön, aber eben auch nur die Zellen mit Inhalt, wenn eine Grafik auf dem Tabellenblatt liegt beachtet er es nicht, bitte um hilfe!

Set pptPres = pptAppl.Presentations.Add
    For Each wksQ In wbkQ.Worksheets
        If Application.WorksheetFunction.CountA(wksQ.Cells) > 0 Then
       
            Set rngB = wksQ.UsedRange
            Set pptSld = pptPres.Slides.Add(pptPres.Slides.Count + 1, ppLayoutBlank)
            rngB.CopyPicture
            pptSld.Shapes.Paste
            pptSld.Shapes(1).Top = (pptAppl.Height - pptSld.Shapes(1).Height) / 2 'PP zentriert
            pptSld.Shapes(1).Left = (pptAppl.Width - pptSld.Shapes(1).Width) / 2  'PP zentriert
        End If
        
    Next