Problem with VBA and AnimationSettings - esp. ChartUnitEffect

  • Thread starter Thread starter Sean
  • Start date Start date
S

Sean

Can anyone help.

I am trying to use VBA to automate a custom animation.

The code below doesn't work and I don't know why.


For Each objShape In objSlide.Shapes
With objShape.AnimationSettings
.Animate = msoTrue
.ChartUnitEffect = ppAnimateBySeries
.AnimateBackground = msoTrue
End With
Next

VBA complains about ChartUnitEffect, saying

AnimationSettings (unknown member) Invalid Request: Sorry, you can't
set chart effects on objects that are not charts.

The object it's complaining about is a chart, and I can set the same
custom animation manually without any problem.

I can also record a macro of the manual operation, and it records fine,
but the macro then doesn't work when I run it and produces the same
error as above.


Hope someone knows the answer.
 
It looks like you are looking at each shape on a slide in turn. Some are
probably not charts hence the complaint.

Try adding a check for charts something like :
For Each objShape In objSlide.Shapes
With objShape.AnimationSettings
Click to expand...
If objshape.Type = msoChart Then
.Animate = msoTrue
.ChartUnitEffect = ppAnimateBySeries
.AnimateBackground = msoTrue End if
End With
Next
Click to expand...


--

Did that answer the question / help?
_____________________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html
 
This may work better!

If objshape.Type = 7 Then
With objshape.AnimationSettings

..Animate = msoTrue
..ChartUnitEffect = ppAnimateBySeries
..AnimateBackground = msoTrue

End With
End If
--

Did that answer the question / help?
_____________________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html
 
John Wilson said:
It looks like you are looking at each shape on a slide in turn. Some are
probably not charts hence the complaint.

Try adding a check for charts something like :
For Each objShape In objSlide.Shapes
If objshape.Type = msoChart Then
Click to expand...

That probably won't fly but:

If objShape.Type = 7 Then ' embedded ole object
If objShape.OLEFormat.ProgID = "MSGraph.Chart.8" Then
' etc

should do it. I think you only see msoChart objects in Access.
 
Back
Top