Configure glow/shrink animation to a text

Question

I want to give glow/shrink animation to a text in PowerPoint using VBA.

I can not configure it to give size 110% (it takes default size 150%) & also want a smooth end to 2 sec.

I tried the scale property but did not get my result.

Set osld = ActivePresentation.Slides(1) 
Set dshp = osld.Shapes("LeftText")

osld.TimeLine.MainSequence.AddEffect dshp, msoAnimEffectGrowShrink, , msoAnimTriggerWithPrevious

For C = 1 To osld.TimeLine.MainSequence.Count
    Set oeff = osld.TimeLine.MainSequence(C)

        oeff.Timing.TriggerType = msoAnimTriggerWithPrevious
        oeff.Timing.TriggerDelayTime = 2
        'oeff.Behaviors.Add(msoAnimTypeScale).ScaleEffect.ByY = 110
        'oeff.Behaviors.Add(msoAnimTypeScale).ScaleEffect.ByX = 110

Next C

Answer 1

Give this a try:

Sub GlowAnimationOptions()
    Dim effGrowShrink As Effect
    Set osld = ActivePresentation.Slides(1)
    Set dshp = osld.Shapes("LeftText")

    Set effGrowShrink = osld.TimeLine.MainSequence.AddEffect(Shape:=dshp, EffectID:=msoAnimEffectGrowShrink, Trigger:=msoAnimTriggerWithPrevious)
    
    With effGrowShrink
        With .EffectParameters
            .Size = 120
        End With
        With .Timing
            .SmoothEnd = msoTrue
            .Duration = 4
        End With
    End With
End Sub