PASTE SPECIAL PICTURE FROM EXCEL TO POWERPOINT

M

Mark

I am using Excel 97. I have grouped a number of shapes together on a
worksheet so that I can copy them to a powerpoint slide using the code
below that I have found on the web. The only trouble is when it is
pasted in the format isn't correct so I need it to be pasted in to the
powerpoint with a PASTE SPECIAL as PICTURE command. Can anyone assist
me with a solution, please?

Here's the Code:
****************

Sub Create_PowerPoint_Presentation()
' Add a reference to the PowerPoint-library
Dim pptApp As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Dim pptSlide As PowerPoint.Slide
Dim pptShape As PowerPoint.Shape
Dim i As Integer, strString As String

Set pptApp = CreateObject("PowerPoint.Application")
Set pptPres = pptApp.Presentations.Add(msoTrue) ' create a new
presentation
' or open an existing presentation
' Set pptPres =
pptApp.Presentations.Open("C:\Foldername\Filename.ppt")

' apply a slide template
pptPres.ApplyTemplate "C:\Program Files\Microsoft
Office\Templates\Presentation Designs\Watermark.pot"

Sheets("TitlePage").Shapes("Slide1").Copy ' copy a picture from
Excel

With pptPres.Slides
Set pptSlide = .Add(.Count + 1, ppLayoutText) ' add a slide
End With

With pptSlide

.Shapes(1).Delete ' remove title
'.Shapes(2).Delete ' remove the text box
.Shapes.PasteSpecial ' I need something here!

With .Shapes(.Shapes.Count)
.Left = 0
.Top = 0
.Width = 720
.Height = 540
End With

...............


Thanks in advance


Mark
 

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

Top