本示例中,如果演示文稿中被选中的幻灯片原来只有一个标题,则改变该幻灯片的版式以包含一个标题和一个副标题。

With Windows(1).Selection.SlideRange
    If .Layout = wpLayoutTitleOnly Then
       .Layout = wpLayoutTitle
   End If
End With