PowerPoint VBA教程:TextRangeStart属性

返回或设置表示文本范围开始位置的 Long 类型值。只读。

expression.TextRangeStart

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

VBA示例

本示例添加一个包含文本的形状,并旋转该形状而保持文本静止。


Sub SetTextRange()
    Dim shpStar As Shape
    Dim sldOne As Slide
    Dim effNew As Effect
    Set sldOne = ActivePresentation.Slides(1)
    Set shpStar = sldOne.Shapes.AddShape(Type:=msoShape5pointStar, _
        Left:=32, Top:=32, Width:=300, Height:=300)
    shpStar.TextFrame.TextRange.Text = "Animated shape."
    Set effNew = sldOne.TimeLine.MainSequence.AddEffect(Shape:=shpStar, _
        EffectId:=msoAnimEffectPath5PointStar, Level:=msoAnimateTextByAllLevels, _
        Trigger:=msoAnimTriggerAfterPrevious)
    With effNew
        If .TextRangeStart = 0 And .TextRangeLength > 0 Then
            With .Behaviors.Add(Type:=msoAnimTypeRotation).RotationEffect
                .From = 0
                .To = 360
            End With
            .Timing.AutoReverse = msoTrue
        End If
    End With
End Sub

上页:PowerPoint VBA教程:TextRangeLength属性 下页:PowerPoint VBA教程:TextShape属性

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属性
PowerPoint VBA教程:TintAndShade属性 PowerPoint VBA教程:Title属性
PowerPoint VBA教程:TitleMaster属性 PowerPoint VBA教程:To属性
PowerPoint VBA教程:Top属性 PowerPoint VBA教程:ToX属性
PowerPoint VBA教程:ToY属性 PowerPoint VBA教程:Tracking属性
PowerPoint VBA教程:Transparency属性 PowerPoint VBA教程:TransparencyColor属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号