G
Guest
I have worked on MotionEffect in PowerPoint 2002 & 2003. But, the way it used
to work there is not working with PowerPoint 2007 BETA.
I then made a search on the MSDN and found a similar code that I have been
using. If I run this code in the PPT 2002 or 2003 then it works fine. But, in
case of PPT 2007 BETA this doesn't produce the same effect. The code:
________________________________________________________
Sub AddMotionPath()
Dim shpNew As Shape
Dim effNew As Effect
Dim aniMotion As AnimationBehavior
Set shpNew = ActivePresentation.Slides(1).Shapes _
.AddShape(Type:=msoShape5pointStar, Left:=0, _
Top:=0, Width:=100, Height:=100)
Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
.AddEffect(Shape:=shpNew, effectId:=msoAnimEffectCustom, _
Trigger:=msoAnimTriggerWithPrevious)
Set aniMotion = effNew.Behaviors.Add(msoAnimTypeMotion)
With aniMotion.MotionEffect
.FromX = 0
.FromY = 0
.ToX = 0.5
.ToY = 0.5
End With
End Sub
__________________________________________________
I copied this to the PPT 2007 Beta VBA and run it. It makes the shapes but
doesn't animate it in the wayit shud. This code works fine in PPT 2002/2003
VBA.
Any ideas what can the problem? This PPT 2007 BETA has been giving me lot of
problems. I was expecting it to atleast maintain the same programming
methodology that I used with PPT 2002 /2003.
Is it something to do with the BETA version? I don't expect that there cud
be such bug in the BETA version that will not let me program the way I used
to program in PPT 2002/2003 but I cannot think of any other reason for these
programming problems I am facing with PPT 2007 BETA.
Thanks in advance.
to work there is not working with PowerPoint 2007 BETA.
I then made a search on the MSDN and found a similar code that I have been
using. If I run this code in the PPT 2002 or 2003 then it works fine. But, in
case of PPT 2007 BETA this doesn't produce the same effect. The code:
________________________________________________________
Sub AddMotionPath()
Dim shpNew As Shape
Dim effNew As Effect
Dim aniMotion As AnimationBehavior
Set shpNew = ActivePresentation.Slides(1).Shapes _
.AddShape(Type:=msoShape5pointStar, Left:=0, _
Top:=0, Width:=100, Height:=100)
Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
.AddEffect(Shape:=shpNew, effectId:=msoAnimEffectCustom, _
Trigger:=msoAnimTriggerWithPrevious)
Set aniMotion = effNew.Behaviors.Add(msoAnimTypeMotion)
With aniMotion.MotionEffect
.FromX = 0
.FromY = 0
.ToX = 0.5
.ToY = 0.5
End With
End Sub
__________________________________________________
I copied this to the PPT 2007 Beta VBA and run it. It makes the shapes but
doesn't animate it in the wayit shud. This code works fine in PPT 2002/2003
VBA.
Any ideas what can the problem? This PPT 2007 BETA has been giving me lot of
problems. I was expecting it to atleast maintain the same programming
methodology that I used with PPT 2002 /2003.
Is it something to do with the BETA version? I don't expect that there cud
be such bug in the BETA version that will not let me program the way I used
to program in PPT 2002/2003 but I cannot think of any other reason for these
programming problems I am facing with PPT 2007 BETA.
Thanks in advance.