In article <811C42DA-978F-455C-9ED1-(E-Mail Removed)>, NickCL wrote:
> In PowerPoint XP I find I cannot record a macro to apply a custom animation
> (horizontal blinds) to a selected chart (or picture).
>
> When I look at the code, there is nothing there. What am I doing wrong? Or
> is it something that macros in PowerPoint XP won't do?
You're not doing anything wrong. The animation features in PPT changed
*radically* between 2000 and 2002/XP. The macro recorder still hasn't caught
up with it as of PPT2003; it draws a blank.
This does it the oldfashioned PPT2000 and before way but should work for you:
Sub JustToSpiteXP()
With ActiveWindow.Selection.ShapeRange.AnimationSettings
.Animate = msoTrue
.EntryEffect = ppEffectBlindsHorizontal
End With
End Sub
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ:
www.pptfaq.com
PPTools:
www.pptools.com
================================================