PowerPoint VBA教程:Paragraph属性

返回或设置表示文本范围内应用动画效果的段落的 Long 类型值。可读写。

expression.Paragraph

expression  必选。该表达式返回“应用于”列表中的对象之一。

VBA示例

本示例添加带有文本的形状,并动画显示形状中的第二和第四段。


Sub AnimateParagraphTwo()
    Dim shpStar As Shape
    Dim effOne As Effect
    Dim effTwo As Effect
    Dim intCount As Integer
    With ActivePresentation.Slides(1)
        Set shpStar = .Shapes.AddShape(Type:=msoShape5pointStar, _
            Left:=150, Top:=72, Width:=400, Height:=400)
        Set effOne = .TimeLine.MainSequence _
            .AddEffect(Shape:=shpStar, _
            EffectId:=msoAnimEffectStretchy, _
            Trigger:=msoAnimTriggerAfterPrevious)
        Set effTwo = .TimeLine.MainSequence _
            .AddEffect(Shape:=shpStar, _
            EffectId:=msoAnimEffectSpinner, _
            Trigger:=msoAnimTriggerAfterPrevious)
    End With
    For intCount = 1 To 5
        shpStar.TextFrame.TextRange _
            .InsertAfter "This is a test." & vbCrLf
    Next intCount
    effOne.Paragraph = 2
    effTwo.Paragraph = 4
End Sub

上页:PowerPoint VBA教程:Panes属性 下页:PowerPoint VBA教程:ParagraphFormat属性

PowerPoint VBA教程:Paragraph属性

PowerPoint VBA教程:ParagraphFormat属性 PowerPoint VBA教程:Parent属性
PowerPoint VBA教程:ParentGroup属性 PowerPoint VBA教程:Password属性
PowerPoint VBA教程:PasswordEncryptionAlgorithm属性 PowerPoint VBA教程:PasswordEncryptionFileProperties属性
PowerPoint VBA教程:PasswordEncryptionKeyLength属性 PowerPoint VBA教程:PasswordEncryptionProvider属性
PowerPoint VBA教程:Path属性 PowerPoint VBA教程:Pattern属性
PowerPoint VBA教程:PauseAnimation属性 PowerPoint VBA教程:Perspective属性
PowerPoint VBA教程:PictureFormat属性 PowerPoint VBA教程:PlaceholderFormat属性
PowerPoint VBA教程:Placeholders属性 PowerPoint VBA教程:PlayOnEntry属性
PowerPoint VBA教程:PlaySettings属性 PowerPoint VBA教程:PointerColor属性
PowerPoint VBA教程:PointerType属性 PowerPoint VBA教程:Points属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号