Pasting and Resizing an Excel Range into Powerpoint using VBA

[spartanexcel]

Hello,
I've searched several forums and have been unable to come up with a solution this problem.

Typically when I bring Excel data (charts or cell ranges) I use Enhanced MetaFiles. They seem to keep the powerpoint file small in size, and maintains formatting. I can also adjust the size of the object once it's pasted into Powerpoint.

I now I have need to do manipulate excel filters and then copy/pastespecial the range to powerpoint using VBA.

I've been able to paste the graphic as an Enhanced Metafile using the following line, where PPSlide is a slide:
PPSlide.Application.ActiveWindow.View.PasteSpecial DataType:=ppPasteEnhancedMetafile

What I'm trying to do is paste the metafile into a Shape variable, so I can reference the variable to position and size the object properly. It seems that I'm pasting as a ShapeRange or Range object, so .Width, .Height, .Left, and .Top all create errors.

Any thoughts on how to paste an excel range into excel using Enhanced Metafile, with the ability to size/position it?

Using Office 2013. Powerpoint Macro recorder is unavailable.
Thanks.

 

[Chris Macro]

Hmmm, I didn't think when you copied over with vba that PowerPoint resized the image automatically

 

[vashon2kool]

Hi Chris,

...even when I copied manually from excel table to PowerPoint (table with many columns), PowerPoint will resize it automatically.

 

[Chris Macro]

Hi Chris,

...even when I copied manually from excel table to PowerPoint (table with many columns), PowerPoint will resize it automatically.

I see what you are saying, I must have been thinking back to an older version of PowerPoint that didn't do the Auto-Resize automatically. I couldn't find any setting that would turn this off, but you could resize the image to a larger size with VBA (ie make the table the size of the slide)