Set ppt = CreateObject("PowerPoint.Application")
Set myPres = ppt.Presentations.Open(pptName)
'For i = 1 To 10
' Set slds = myPres.Slides
' Set sld = slds.Add(myPres.Slides.Count + 1, ppLayoutBlank)
For each sld in myPres.Slides
For Each oLayout In myPres.Designs("Office Theme").SlideMaster.CustomLayouts
If oLayout.Name = "Title and Content" Then
sld.CustomLayout = oLayout
Exit For
End If
Next
'Next i
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…