Quote:
Originally Posted by JohnWilson
Code:
Sub copyShape()
Dim mylibrary As Presentation
Dim osld As Slide
'open library file with NO window
Set mylibrary = Presentations.Open(Environ("USERPROFILE") & "\My Documents\CustomShapesPresentation.ppt", WithWindow:=False)
'copy shape
mylibrary.Slides(1).Shapes("CustomShape1").Copy
'paste into current slide
ActiveWindow.View.Slide.Shapes.Paste
'close library
mylibrary.Close
End Sub
Would be the basic code
If it's for client use I would hide the library file somewhere other than My Docs |
So helpful as always thank you.
03-27-2012, 10:04 AM
Similar Threads
Custom Header
Windows 7 64bit 
Office 2003
Threaded Mode