With ActivePresentation.Designs For i = 1 To .Count MsgBox "使用的设计模版的名称: [" & .Item(i).Name & "]" NextEnd With