Paste Special

[Guest]

Firstly I apologise in advance as this is a re-post, but if anyone can help
it would be greatly appreciated.

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

 

[Guest]

Have you tried posting to the PowerPoint newsgroup? You need to use a
PowerPoint VBA command, would probably find some help there.

 

[Tom Ogilvy]

The options for pastespecial in Powerpoint are:
PpPasteDataType can be one of these PpPasteDataType constants.
ppPasteBitmap
ppPasteDefault default
ppPasteEnhancedMetafile
ppPasteGIF
ppPasteHTML
ppPasteJPG
ppPasteMetafilePicture
ppPasteOLEObject
ppPastePNG
ppPasteRTF
ppPasteShape
ppPasteText

I would try Bitmap or one of the Metafile's

Another thing you might look at is changing

Sheets("TitlePage").Shapes("Slide1").Copy

to

Sheets("TitlePage").Shapes("Slide1").CopyPicture xlScreen, xlBitmap
or
Sheets("TitlePage").Shapes("Slide1").CopyPicture xlScreen, xlPicture

 

[Guest]

Tom,

Brilliant, many thanks the metafilepicture works a treat.