本示例在当前演示文稿中添加一张幻灯片并为副标题添加文本(副标题是此版式的幻灯片中的第二个占位符)。

With ActivePresentation.Slides.Add(Index:=1, Layout:=wpLayoutTitle).Shapes
    .Placeholders(2).TextFrame.TextRange = "This is subtitle text"
End With