Problem while copying range as picture and pasting in Power Piont Slide

A

abiram01

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

opening up Powerpoint slide from Excel 2
Range Link and Chart Link Macros 1
Copying and pasting from Excel to Powerpoint using VBA 1
How to copy multiple objects from Excel to PowerPoint 0
Moving Excel Chart to Powerpoint (getting runtime error 91) 2
From Early to Late bind 0
From Early to Late bind 0
From Early binding to Late binding 1

Top