以 String 类型返回一个指定标签的名称。
expression.Name(Index)
expression 必选。该表达式返回一个 Tags 集合。
Index 必选。Long 类型。标签号。
本示例显示与活动演示文稿的第一张幻灯片关联的每个标签的名称和值。
With Application.ActivePresentation.Slides(1).Tags
For i = 1 To .Count
MsgBox "Tag #" & i & ": Name = " & .Name(i)
MsgBox "Tag #" & i & ": Value = " & .Value(i)
Next
End With
本示例搜索当前演示文稿的每张幻灯片的标签,如果存在名为“PRIORITY”的标签,则以一消息框显示该标签的值;如果不存在,则添加该标签,并设定标签值为“Unknown”。
For Each s In Application.ActivePresentation.Slides
With s.Tags
found = False
For i = 1 To .Count
If .Name(i) = "PRIORITY" Then
found = True
slNum = .Parent.SlideIndex
MsgBox "Slide " & slNum & _
" priority: " & .Value(i)
End If
Next
If Not found Then
slNum = .Parent.SlideIndex
.Add "Name", "New Figures"
.Add "Priority", "Unknown"
MsgBox "Slide " & slNum & _
" priority tag added: Unknown"
End If
End With
Next