PowerPoint VBA如何设置msoAnimEffectChangeFillColor效果的颜色

我正在使用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

---

你确定它不起作用吗？它在这里显示绿色。嗨-我也想改变形状为绿色，并使用相同的命令。我可以把形状改成除绿色以外的任何颜色！因此，如果我将RGB设置为蓝色，它将显示为蓝色等。但是，如果我尝试使用绿色，则颜色是powerpoint中设置的默认颜色。如果有任何建议，我将不胜感激！