Looking up Custom Shapes

[khott13]

Hey everyone,

I have a program that create shapes with tagged properties in either Excel and PowerPoint. I have an issue where I need to loop through these "tagged" shapes to add/extract information to them.

Unfortunately there are many other standard Shapes or the same slide/sheet that I don't care to loop through since they wouldn't have the tags to begin with. Right now I am currently using something to the effect of:

Sub GetShapeNames()

For Each Shape In ActivePresentation.Slides(1).Shapes
    If Shape.Tag("Type") = "Special" Then Debug.Print Shape.Name
Next Shape

End Sub

'where i would like to use something like:

Sub GetTaggedEventNames()

Dim tgdEvt As New TaggedEvent

For Each tgdEvt In ActivePresentation.Slides(1).Shapes
    Debug.Print tgdEvt.Name
Next tgdEvt 

End Sub

I know how to make custom classes/objects, but not how to say my custom Object is really a PowerPoint/Excel Shape. And then after that, is it possible to create a custom ScheduleEvents property of the ActivePresentation.Slides object, similar to how there is a Slides property?

Any ideas on how this could work? Or better yet, if you know of a better way to limit the amount of objects it needs to loop through (assuming it has to loop through all tagged Shapes on a slide/sheet to complete the tags update)?


Thanks!
Kyle

[westconn1]

you could try grouping the custom shapes