PowerPoint VBA教程:Value方法

以 String 类型返回一个指定标记的值。

expression.Value(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教程:UserTextured方法 下页:PowerPoint VBA教程:WebPagePreview方法

PowerPoint VBA教程:Value方法

PowerPoint VBA教程:WebPagePreview方法 PowerPoint VBA教程:Words方法
PowerPoint VBA教程:ZOrder方法 PowerPoint VBA教程:ActionSetting对象
PowerPoint VBA教程:ActionSettings集合对象 PowerPoint VBA教程:AddIn对象
PowerPoint VBA教程:AddIns集合对象 PowerPoint VBA教程:Adjustments对象
PowerPoint VBA教程:AnimationBehavior对象 PowerPoint VBA教程:AnimationBehaviors集合
PowerPoint VBA教程:AnimationPoint对象 PowerPoint VBA教程:AnimationPoints集合
PowerPoint VBA教程:AnimationSettings对象 PowerPoint VBA教程:Application对象
PowerPoint VBA教程:AutoCorrect对象 PowerPoint VBA教程:Borders集合对象
PowerPoint VBA教程:BulletFormat对象 PowerPoint VBA教程:CalloutFormat对象
PowerPoint VBA教程:Cell对象 PowerPoint VBA教程:CellRange集合对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号