-1 
'declare Variables 
Dim osld As Slide
Dim oshp As Shape
Dim oeff As Effect

' SET objects
Set osld = ActivePresentation.Slides(7)
Set oshp = osld.Shapes("Star 1")
Set oeff = osld.TimeLine.MainSequence.AddEffect(Shape:=oshp, effectid:=msoAnimEffectChangeFillColor)

With oeff
.EffectParameters.Color2.RGB = RGB(Red:=10, Green:=45, Blue:=201)
.Timing.Duration = 2
End With

oshp.Left = oshp.Left + 100 ' Added to verify something was coming thru!

残念ながら、それでも機能しません...コンパイルされますが、スライドには影響しません...

私はあなたの推薦を示すためにコードを更新しました

注意：塗りつぶしの色は、シェイプの作成時に定義されます

シェイプの左側の値に+100を追加して、実際に通過していることを確認しました。実際に移動しますが、色は変わりません...

どのエフェクトがどのパラメータをサポートするかについての「公式」リストはどこかにありますか？

私と一緒にこれを介して怠けてくれてありがとう！:)

4

1 に答える 1

1

私はあなたの欲求不満を理解しています：私のコメントで述べたように、Color1プロパティはPowerPoint 2010には存在しませんが、ドキュメントに示されている例では使用されてColor2いますColor1-その結果、コンパイルされません！

正しい方法は、次のように図形に色を付けることです。

oshp.Fill.ForeColor.RGB = RGB(Red:=0, Green:=0, Blue:=255)

これが開始色になります。アニメーション効果は、その色を変更できます。

With oeff
    .EffectParameters.Color2.RGB = RGB(Red:=0, Green:=255, Blue:=255)
    .Timing.Duration = 2
End With

これはのプロパティであり、質問で指定されたコードTimingのプロパティでEffectはないことに注意してください。EffectParameters

于 2012-08-29T07:15:42.547 に答える