VBAパワポ　アニメーションの距離を調整したい

直線で上にあがるアニメーションの上がる距離を調整したいです
あと1回のクリックでshapes(1),shapes(2),shapes(3)を同時にアニメーションさせたいです

VBA
1Sub aniUp()
2  With ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect _
3  (shape:=ActivePresentation.Slides(1).Shapes(1), EffectId:=msoAnimEffectPathUp)
4        .Timing.Duration = 3
5  End With
6End Sub

行動規範の内容に同意します

回答1件

ベストアンサー

TimeLine の Sequence プロパティ (PowerPoint)

アニメーションの上がる距離

~~高さ、幅どっち？サンプル書いておいたから値は調整して下さい。~~
移動の位置という事なので修正しました
Effect オブジェクト (PowerPoint)
移動数値は調整して下さい。

VBA
1Sub aniUp()
2	Dim eff As Effect
3	Set eff = sldOne.TimeLine.MainSequence.AddEffect( _
4		Shape:=ActivePresentation.Slides(1).Shapes(1), _
5		EffectId:=msoAnimEffectPathUp)
6	With eff.Behaviors.Add(msoAnimTypeMotion).MotionEffect
7		.FromX = 0
8		.FromY = 200
9		.ToX = 0
10		.ToY = 0
11	End With
12	Set eff = sldOne.TimeLine.MainSequence.AddEffect( _
13		Shape:=ActivePresentation.Slides(1).Shapes(2), _
14		EffectId:=msoAnimEffectPathUp)
15	With eff.Behaviors.Add(msoAnimTypeMotion).MotionEffect
16		.FromX = 0
17		.FromY = 200
18		.ToX = 0
19		.ToY = 0
20	End With
21	Set eff = sldOne.TimeLine.MainSequence.AddEffect( _
22		Shape:=ActivePresentation.Slides(1).Shapes(3), _
23		EffectId:=msoAnimEffectPathUp)
24	With eff.Behaviors.Add(msoAnimTypeMotion).MotionEffect
25		.FromX = 0
26		.FromY = 200
27		.ToX = 0
28		.ToY = 0
29	End With
30End Sub