Quote:
Originally Posted by excelledsoftware
I tired my above code again and I still cant get it to work as a windowless copy. Is there different code I should use?
|
I got it.
Just had to do a little bit of research here is the solution.
Code:
Sub shapelist()
Dim curlibrary As Presentation
Dim oshp As Shape
Dim AllShapeMsg As String
Dim curosld As Slide
Set curlibrary = Presentations.Open(Environ("USERPROFILE") & "\My Documents\CustomShapes.ppt", WithWindow:=False)
Set curosld = curlibrary.Slides(1)
For Each oshp In curosld.Shapes
AllShapeMsg = AllShapeMsg & oshp.Name & vbCrLf
Next oshp
curlibrary.Close
MsgBox AllShapeMsg
End Sub
Thanks everybody