PowerPoint Macro needed

[richiwatts]

Hi,

I have been trying to use the record macro function but can't get it to work.

I want to select text and then run a Macro that will set it to:

Fly in > from left

Once in a slide show

Thanks
Richi

 

[GrayShades]

Is this the line you need?

    ActiveWindow.Selection.ShapeRange.AnimationSettings. _
           EntryEffect =ppEffectFlyFromLeft

Software: XL2002 on Win2K
Humanware: Older than dirt

 

[richiwatts]

Hi,

That sort of worked, however, if I have 3 bullet points it will set it to all 3 bullets together so that they all come in together. I am trying to get them to come in seperately once I click on a button

Richi

 

[apeoortje]

just right click, and then goto custom animation,

you should be able to do everything in there

 

[richiwatts]

Because that takes 3 actions and I have over 500 bullets to sort out.

 

[fumei]

With ActiveWindow.Selection.ShapeRange.AnimationSettings
  .EntryEffect = ppEffectFlyFromLeft
  .TextLevelEffect = ppAnimateByFirstLevel
End With

will set a selected textbox to the following custom animation: fly in from the left, bullet by bullet (first level paragraphs) NOT as a group.

If you want to see how you can do the other effects options (noted in previous post as multiple manual steps in Custom Animation) with VBA, please look in the Object Browser. It can be a bit of a hunt, but they are all there. Letter by letter, speed, repeats etc etc etc.

The PowerPoint Object Model is...well as far as I can see all the office apps had object design teams that never spoke to each other very much. I am constantly shaking my head. Some times it seems totally amazing that they work as well as they do - which is of course a debatable topic and does not belong in this thread.

hope this helps.



Gerry