PowerPoint VBA教程:Name方法

以 String 类型返回一个指定标签的名称。

expression.Name(Index)

expression   必选。该表达式返回一个 Tags集合。

Index   必选。Long 类型。标签号。

VBA示例

本示例显示与活动演示文稿的第一张幻灯片关联的每个标签的名称和值。


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

上页:PowerPoint VBA教程:MoveTo方法 下页:PowerPoint VBA教程:NewWindow方法

PowerPoint VBA教程:Name方法

PowerPoint VBA教程:NewWindow方法 PowerPoint VBA教程:Next方法
PowerPoint VBA教程:NextNode方法 PowerPoint VBA教程:OfflineConflict Method
PowerPoint VBA教程:OneColorGradient方法 PowerPoint VBA教程:Open方法
PowerPoint VBA教程:Paragraphs方法 PowerPoint VBA教程:Paste方法
PowerPoint VBA教程:PasteSpecial方法 PowerPoint VBA教程:Patterned方法
PowerPoint VBA教程:PickUp方法 PowerPoint VBA教程:Picture方法
PowerPoint VBA教程:Play方法 PowerPoint VBA教程:PointsToScreenPixelsX方法
PowerPoint VBA教程:PointsToScreenPixelsY方法 PowerPoint VBA教程:PresetDrop方法
PowerPoint VBA教程:PresetGradient方法 PowerPoint VBA教程:PresetTextured方法
PowerPoint VBA教程:Previous方法 PowerPoint VBA教程:PrevNode方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号