Macro Question: Pasting

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

JB2010 - 17 Apr 2007 15:02 GMT

Hi

On my Powerpoint 2003 there appear to be no VB commands for "Paste Special:
Enhanced Metafile", "Paste Special: Windows Metafile" or "Paste Special:
Paste Link".

am i cocking something up or are there really no commands for these?

i am using these functions a lot & i can only get as far as a customised
shortcut button on the toolbar for the Paste Special selections menu to speed
things up. Ideally, I want to be able to make "Ctrl+?" finger-shortcuts for
each of the specific commands above, like i can for various Paste Specials in
Excel.

anyone got any thoughts?

cheers

jb

many thanks

Reply to this Message

Austin Myers - 17 Apr 2007 16:36 GMT

Go to the Microsoft web site and search for "vbapp10.chm". This is the
published documentation for the PowerPoint object model and has answers to
your needs on pasting.

Austin Myers
MS PowerPoint MVP Team

Provider of PFCMedia, PFCPro, PFCExpress
http://www.pfcmedia.com

> Hi
>
[quoted text clipped - 21 lines]
>
> many thanks

Reply to this Message

David M. Marcovitz - 17 Apr 2007 18:19 GMT

You mean something like:

.Shapes.PasteSpecial ppPasteEnhancedMetafile

???

--David

Signature

David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

> Hi
>
[quoted text clipped - 18 lines]
>
> many thanks

Reply to this Message

Steve Rindsberg - 17 Apr 2007 20:02 GMT

> Hi
>
> On my Powerpoint 2003 there appear to be no VB commands for "Paste Special:
> Enhanced Metafile", "Paste Special: Windows Metafile" or "Paste Special:
> Paste Link".

Make sure there's something on the clipboard first, then type this into the IDE:

ActivePresentation.Slides(1).Shapes.PasteSpecial

As soon as you type that then a ( (open paren), intellisense will list the available paste special
types. Trying to paste a type that isn't on the clipboard will trigger an error.

The last parameter can be set to True to produce a linked OLE object.

Dim oSh As Shape
Set oSh = ActivePresentation.Slides(1).Shapes.PasteSpecial(ppPasteRTF, _
msoFalse, , , , msoTrue)(1)
With oSh
' do stuff
End With

> am i cocking something up or are there really no commands for these?
>
[quoted text clipped - 11 lines]
>
> many thanks

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

Reply to this Message