VBA Macro to Copy Range and Paste range to PPT as Picture

问题

Need help to copy range of cells from excel sheet1 to PowerPoint file and paste it as Picture and make that picture fit inside the slide automatically.

I currently use Snagit software to take screenshot of the sheet and use send to powerpoint but it take lots of time.

Any feedback would be nice to automate this process

回答1:

something like this

Sub BetterPicturePaste()

    '...other stuff...

    Windows(1).Sheets(1).Range("myrange").Copy
    Windows(2).View.PasteSpecial DataType:=ppPasteEnhancedMetafile

End Sub

来源：https://stackoverflow.com/questions/18317027/vba-macro-to-copy-range-and-paste-range-to-ppt-as-picture