Resize a range/shape in excel beore pasting it in Powerpoint

[Elisa]

Hello,

I'm copying a range in excel, and want to paste it into powerpoint. The range is to big, and it cuts of of some of the columns. So I want to resize it, or set the width, but I need to do it before pasting it in, because I think it cuts of the columns when I paste it in. Does anyone know how to do that?

Here is my code:

Sheets("Key Projects").Select
Range("B2:Q31").Select
Selection.Copy
activeSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select

[snb]

Please use code tags !

I think you won't loose anything; you only have to resize what you copied in Powerpoint.
You can use the macrorecorder in powerpoint to find out how.


Sheets("Key Projects").Range("B2:Q31").Copy
with getobject(,"Powerpoint.application")
.activepresentation.activeSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafi lePicture).Select
.application.selection.resize>>>>>
End With