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


--
abiram01
------------------------------------------------------------------------
abiram01's Profile: http://www.excelforum.com/member.php...o&userid=33347
View this thread: http://www.excelforum.com/showthread...hreadid=570244