Hi all,

While copying and pasting range as picture and pasting it in ppt, the whole selected data is not copied and pasted. Only 9 columns and 65 rows data is copied and pasted.

Is there an other method to copy all the selected dta and paste?

Am using the following code.

Dim PPApp As Object
Dim PPPres As Object
Dim PPSlide As Object

Set PPApp = CreateObject("Powerpoint.Application")
Set PPPres = PPApp.Presentations.Add
Set PPSlide = PPPres.Slides.Add(1, 12)

PPApp.Visible = msoTrue
ActiveSheet.Range("C9:CF212").Select

Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture

oPPtApp.ActiveWindow.View.Paste