I'm building a PowerPoint (2010) template to conform to our new company design. It includes a lot of round picture placeholders. Manually, it's easy to create a new slide layout, insert a picture placeholder (which comes in by default as a rectangle), then use change shape to change it to an oval. I just need to accomplish that with VBA. The following code creates a new layout and adds the picture placeholder.
layoutcount = ActivePresentation.Designs(1).SlideMaster.CustomLayouts.Count
Set newlayout = ActivePresentation.Designs(1).SlideMaster.CustomLayouts _
.Add(layoutcount + 1)
Set ph = newlayout.Shapes.AddPlaceholder(ppPlaceholderPicture, _
Left:=100, Top:=200, Width:=100, Height:=100)
Now how would I change "ph" to an oval?