PowerPoint VBA教程:Tags属性

返回一个代表指定对象的标签的Tags对象。只读。

VBA示例

注意  在本例中,标签值是以大写形式添加和保存在文本中的。因此,应使用大写形式的文本对标签值进行测试,如第二个例子所示。

本示例向当前演示文稿第一张幻灯片中添加名为“REGION”和“PRIORITY”的标签。


With Application.ActivePresentation.Slides(1).Tags
    .Add "Region", "East"     'Adds "Region" tag with value "East"
    .Add "Priority", "Low"    'Adds "Priority" tag with value "Low"
End With

本示例在当前演示文稿的所有幻灯片中搜索名为“PRIORITY”的标签,并弹出消息框显示标签值。如果不存在名为“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 "Priority", "Unknown"
          MsgBox "Slide " & slNum & " Priority tag added: Unknown"
        End If
    End With
Next

上页:PowerPoint VBA教程:TabStops属性 下页:PowerPoint VBA教程:TargetBrowser属性

PowerPoint VBA教程:Tags属性

PowerPoint VBA教程:TargetBrowser属性 PowerPoint VBA教程:TemplateName属性
PowerPoint VBA教程:Text属性 PowerPoint VBA教程:TextDirection属性
PowerPoint VBA教程:TextEffect属性 PowerPoint VBA教程:TextFrame属性
PowerPoint VBA教程:TextLevelEffect属性 PowerPoint VBA教程:TextRange属性
PowerPoint VBA教程:TextRangeLength属性 PowerPoint VBA教程:TextRangeStart属性
PowerPoint VBA教程:TextShape属性 PowerPoint VBA教程:TextStyles属性
PowerPoint VBA教程:TextToDisplay属性 PowerPoint VBA教程:TextUnitEffect属性
PowerPoint VBA教程:TextureName属性 PowerPoint VBA教程:TextureType属性
PowerPoint VBA教程:ThreeD属性 PowerPoint VBA教程:Time属性
PowerPoint VBA教程:TimeLine属性 PowerPoint VBA教程:Timing属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号