How to use VBA to return a collection of PowerPoint Custom Layout objects when more than one is selected in Master view?

In PowerPoint, ActiveWindow.Selection.Type can return one of four types : None, Slides, Shapes or Text.

When in the Slide Master view and a single layout is selected in the thumbnail pane, the selection type returned is Slides and the following returns a Master object as expected:

Set obj = ActiveWindow.View.Slide

Open in new window

But, when more than one custom layout is selected in the thumbnail pane, the following returns an error:

Set obj = ActiveWindow.Selection.SlideRange

Open in new window

The error : "Selection (unknown member) : Invalid request. SlideRange cannot be constructed from a Master."

So my question is "how can I return a collection of custom layouts based on the current selection when the selection comprises more than one layout?"
LVL 15
Jamie GarrochSenior Technical Consultant at BrightCarbonAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

AFAIK there is no way to do this. (And you know I don't say that lightly)

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Jamie GarrochSenior Technical Consultant at BrightCarbonAuthor Commented:
On further searching, I discovered we discussed this before on the Microsoft Answers forum, albeit in a slightly different context. I was hoping that things had changed but alas no! And yes, I know you don't say "it's not possible" lightly. Thanks John :-)
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.