AddTitle 方法

       

将以前已删除的标题占位符恢复到幻灯片上。返回一个代表已恢复标题的 Shape 对象。

注意  如果未曾从指定幻灯片删除标题占位符,该方法将导致出错。请使用 HasTitle 属性确定是否已删除标题占位符。

expression.AddTitle

expression  必选。该表达式返回一个 Shapes 对象。

示例

如果此标题占位符已删除,本示例将其恢复到活动演示文稿第一张幻灯片。恢复后的标题文本为“Restored title”。

With ActivePresentation.Slides(1)
    If .Layout <> ppLayoutBlank Then
        With .Shapes
            If Not .HasTitle Then
                .AddTitle.TextFrame.TextRange _
                    .Text = "Restored title"
            End If
        End With
    End If
End With