指定したアニメーション動作の ScaleEffect オブジェクトを取得します。 値の取得のみ可能です。
構文
式。 ScaleEffect
式AnimationBehavior オブジェクトを表す変数。
戻り値
ScaleEffect
例
次の使用例は、スライド 1 の図形 1 を 0 から開始し、元の大きさの 100% に達するまで拡大します。
Sub ChangeScale()
Dim shpFirst As Shape
Dim effNew As Effect
Dim aniScale As AnimationBehavior
Set shpFirst = ActivePresentation.Slides(1).Shapes(1)
Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
.AddEffect(Shape:=shpFirst, effectId:=msoAnimEffectCustom)
Set aniScale = effNew.Behaviors.Add(msoAnimTypeScale)
With aniScale.ScaleEffect
'Starting size
.FromX = 0
.FromY = 0
'Size after scale effect
.ToX = 100
.ToY = 100
End With
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。