Hi Emma,
have a look at Jon Peltier's website for help:
http://peltiertech.com/Excel/XL_PPT.html
Hope this helps!
Dominik.
"Emma" wrote:
> I'm using VBA in excel to automate copying a selection in excel and pasting
> it into powerpoint as a picture. The problem i'm having is that the picture
> is cutting off half of the selection I'm making. An extract of the code i'm
> using is below, I know it is selecting the whole area, what and how do i need
> to change in the copy and or paste part to paste the whole selection and then
> resize it to fit the slide?
>
> Sheets("PP offenders").Select
> Range("b2:L11").Select
>
> ' Reference existing instance of PowerPoint
> Set PPApp = GetObject(, "Powerpoint.Application")
> ' Reference active presentation
> Set PPPres = PPApp.ActivePresentation
> PPApp.ActiveWindow.ViewType = ppViewSlide
> ' Reference active slide
> Set PPSlide =
> PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
>
> ' Copy the range as a piicture
> Selection.CopyPicture Appearance:=xlScreen, _
> Format:=xlPicture
>
> ' Paste the range
> PPSlide.Shapes.Paste.Select
>
> ' Position pasted chart
>
> PPApp.ActiveWindow.Selection.ShapeRange.Left = 1
> PPApp.ActiveWindow.Selection.ShapeRange.Top = 330
Similar Threads
