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.SlideRa nge.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

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.SlideRa nge.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