vba - PowerPoint VBA msoAnimEffectChangeFillColor エフェクトの色を設定する方法

Question

私は PowerPoint 2010 を使用しており、色が緑に変わる一連の図形にアニメーションを追加しようとしていますが、色が濃い赤に変わっているだけです。

Private Sub CommandButton1_Click()
Dim oshp As Shape
Dim oslide As Slide

Set oslide = ActivePresentation.Slides(1)

'Clear all animations
For i = 1 To oslide.TimeLine.MainSequence.Count
    oslide.TimeLine.MainSequence.Item(1).Delete
Next

For i = 1 To 4
    Set oshp = oslide.Shapes(i)
    ' Assign an animation to shape
    Set oEffect = oslide.TimeLine.MainSequence.AddEffect(Shape:=oshp, effectId:=msoAnimEffectChangeFillColor, trigger:=msoAnimTriggerAfterPrevious)
    oEffect.EffectParameters.Color2.RGB = RGB(0, 255, 0)
    oEffect.Timing.SmoothEnd = msoTrue
    oEffect.Timing.Duration = 0.2
Next
End Sub