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