M
Mark
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
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