本示例显示活动演示文稿中所有使用的设计模板的名称。

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