All Shapes on slide

excelledsoftware · #1 09-08-2013, 10:05 AM

Quote:

Originally Posted by JohnWilson

The only way to do this without opening would be to query the XML. This is not a simple thing to do! You would need to Google Microsoft XML DOM or OpenXML SDK.

Be warned though this is an order of magnitude harder than what you are doing.

Is there a problem opening a windowless copy (and closing it when you are done) It should be quite transparent.

Oh wow. Yeah I dont want anything that difficult right now. Opening a windowless copy should be fine, actually I thought that was what I was trying to do.

excelledsoftware · #2 09-14-2013, 11:14 AM

Quote:

Originally Posted by excelledsoftware

Oh wow. Yeah I dont want anything that difficult right now. Opening a windowless copy should be fine, actually I thought that was what I was trying to do.

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?

excelledsoftware · #3 09-14-2013, 07:24 PM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copy & Paste Shapes & Motion Paths from 1 Slide Size to Another	buckaroobanzai	PowerPoint	1	06-08-2012 05:32 AM
Where did map shapes go?	SueK	PowerPoint	1	01-20-2011 04:30 AM
Find and add new Shapes	bonani	PowerPoint	1	11-26-2009 06:21 PM
Shapes Will Not Display	JoeTx	Visio	0	03-13-2008 09:01 AM
My Shapes some appear some don't	Jean-Paul	Visio	0	03-01-2006 01:38 AM