Paste as EMF

Seems like a silly little thing, but I do a lot of copying and pasting from Visio and other graphical apps into Word and other Office apps.  So, I’ve started to write some macros to speed this up.  Here’s the one for PowerPoint:


Sub PasteEMF()
    ActivePresentation.Slides(ActiveWindow.Selection.SlideRange.SlideIndex).Shapes.PasteSpecial (ppPasteEnhancedMetafile)
End Sub

Advertisements

Leave a Reply

Please log in using one of these methods to post your comment:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s