Macro Question: Pasting

[Guest]

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

 

[Austin Myers]

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

 

[David M. Marcovitz]

You mean something like:

..Shapes.PasteSpecial ppPasteEnhancedMetafile

???

--David

--
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/

 

[Steve Rindsberg]

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