Question

I’m trying to programatically change the language of each shape in each customlayout in a PowerPoint template and I can’t figure out how to do this. I’ve done it before, but I can’t find the macro anymore so I don’t really know how I did it. I’ve been able to select each custom layout though. But I need to loop through each textbox in each layout and select the language as well. My problem is targetting each shape. How do I do this?

This is what I’ve got so far:

ActiveWindow.ViewType = ppViewSlideMaster

For Each oLayout In ActivePresentation.SlideMaster.CustomLayouts
    oLayout.Select
Next   

This basically loops through each layout. But I can’t figure out how to select each placeholder? How do I do this?

Edit: Resolution is now:

For Each oLayout In ActivePresentation.SlideMaster.CustomLayouts
    oLayout.Select
    Dim oShape As Shape
    For Each oShape In oLayout.Shapes
        oShape.Select
    Next
Next

Answer 1

Loop through oLayout.Shapes, or perhaps oLayout.Shapes.Placeholders.