PlaceholderFormat、Placeholders实例
一、PlaceholderFormat 对象包含专门应用于占位符的属性，例如占位符类型。
使用 PlaceholderFormat 对象
使用 PlaceholderFormat 属性返回 PlaceholderFormat 对象。如果当前演示文稿第一张幻灯片的第一个占位符存在并且是水平标题占位符，以下示例在该占位符中添加文本。
With ActivePresentation.Slides(1).Shapes.Placeholders
If .Count > 0 Then
With .Item(1)
Select Case .PlaceholderFormat.Type
Case ppPlaceholderTitle
.TextFrame.TextRange = "Title Text"
Case ppPlaceholderCenterTitle
.TextFrame.TextRange = "Centered Title Text"
Case Else
MsgBox "There's no horizontal " _
"title on this slide"
End Select
End With
End If
End With
二、Placeholders 集合对象
代表指定幻灯片中占位符的所有 Shape 对象的集合。Placeholders 集合中的每个 Shape 对象代表一个占位符，占位符可以是文本、图表、表格、组织结构图或其他类型的对象。如果幻灯片有标题，则标题是集合中的第一个占位符。
使用 Placeholders 集合
使用 Placeholders 属性返回 Placeholders 集合。使用 Placeholders(index) 返回代表单个占位符的 Shape 对象，其中 index 是占位符索引号。请注意：任何标题为 Shapes.Title 的幻灯片等同于 Shapes.Placeholders(1)。以下示例向演示文稿的开头添加有具有项目符号列表的幻灯片版式，设置标题文本，然后向文本占位符中添加两个段落。
Set sObj = ActivePresentation.Slides.Add(1, ppLayoutText).Shapes
sObj.Title.TextFrame.TextRange.Text = "This is the title text"
sObj.Placeholders(2).TextFrame.TextRange.Text = "Item 1" & Chr(13) & "Item 2"
我卷了~~~~~~~ 不错啊! 一个字牛啊!
页:
[1]