Custom Animation A Diffferent Question - SECOND POST

[jOsH]

I have many slides with bullet lists with custom animation as
follows. Each line wipes from the left with the first wipe occuring
as soon as the slide appears and each additional line appearing
onclick

I can set the master to wipe left on click or with previous but not
oth. Is there a way to write a macro that will set this custom
animation for each slide or modift the maste by coping to a slide and
then altering the animation accordingly?

 

[Echo S]

That's because the master slide applies animations to the *level* of the
bullet. So, given your example, all first-level bullets will come in with
previous.

You'd have to do some jockeying on your slides and set up your second level
bullets to look like primary bullets in order to do this.

Probably it's easier if you just create one slide, apply the animation to
the slide as you want it, and then copy that slide and change the text.

 

[jOsH]

Is it possible to do this with some VBA Programing. I have have been
unable to find amything concerning using VBA to assign a custom
animation to selected text. Does it exsist?

 

[Echo S]

Now, that I don't know -- one of the coders will have to chime in.

Actually, I do know of two "format-painter" type animation tools you might
want to try out.

Animation Carbon: http://skp.mvps.org/ac/index.html

Edit or Effects Library http://pptextreme.com/

 

[jOsH]

Let Try something simplier. Is there a VB command to Display the
custom animation screen?

 

[jOsH]

Well I hope there is a coder out there that can help i made it this
far. Code will Animate the way I want EXCEPT I WANT THE First Line of
the bullet text to activate "with previoua" and the rest to activate
on click

CAN ANYONE HELP?

Sub Macro2()


Highlight a bulleted text list and then run this macro


Dim ObjectName As String
Dim SlideNumber As Integer
SlideNumber = 0
SlideNumber = ActiveWindow.View.Slide.SlideIndex
ObjectName = ""
ObjectName = ActiveWindow.Selection.ShapeRange.Name
'With ActiveWindow.Active
With
ActivePresentation.Slides(SlideNumber).Shapes(ObjectName).AnimationSettings
.EntryEffect = ppEffectWipeRight
.TextLevelEffect = ppAnimateByFirstLevel
.AdvanceMode = ppAdvanceModeMixed
End With



DOES ANYONE KNOW anything abouth

ppAdvanceModeMixed ??

 

[jOsH]

Part of message missing in previous post

I have many slides with bullet lists with custom animation as
follows. Each line wipes from the left with the first wipe occuring
as soon as the slide appears and each additional line appearing
onclick

I can set the master to wipe left on click or with previous but not
oth. Is there a way to write a macro that will set this custom
animation for each slide or modift the maste by coping to a slide and
then altering the animation accordingly?



Well I hope there is a coder out there that can help i made it this
far. Code will Animate the way I want EXCEPT I WANT THE First Line of
the bullet text to activate "with previoua" and the rest to activate
on click

CAN ANYONE HELP?

Sub Macro2()


Highlight a bulleted text list and then run this macro


Dim ObjectName As String
Dim SlideNumber As Integer
SlideNumber = 0
SlideNumber = ActiveWindow.View.Slide.SlideIndex
ObjectName = ""
ObjectName = ActiveWindow.Selection.ShapeRange.Name
'With ActiveWindow.Active
With
ActivePresentation.Slides(SlideNumber).Shapes(ObjectName).AnimationSettings
.EntryEffect = ppEffectWipeRight
.TextLevelEffect = ppAnimateByFirstLevel
.AdvanceMode = ppAdvanceModeMixed
End With



DOES ANYONE KNOW anything abouth

ppAdvanceModeMixed ??

 

[Shyam Pillai]

Do you wish to display the custom animation task pane?

 

[Shyam Pillai]

Josh,
Which version of PowerPoint do you wish to target, you code applies to
PowerPoint 97/2000 while your request to change animation properties on a
paragraph level requires PPT 2002 or later.
This is the code on PPT 2002 or later
Sub Example()
Dim oShp As Shape
Dim oSld As Slide
Dim oEffect As Effect

' Get reference to the shape
Set oShp = ActiveWindow.Selection.ShapeRange(1)
' Get reference to the slide on which the shape resides
Set oSld = oShp.Parent

With oSld.TimeLine.MainSequence
' Add the wipe effect to the shape
Set oEffect = .AddEffect(oShp, _
msoAnimEffectWipe, , msoAnimTriggerOnPageClick)
' Specify the direction of wipe, default is wipe down.
oEffect.EffectParameters.Direction = msoAnimDirectionRight
' Set it to build by first level, this breaks up the single effect
into
' multiple effects.
Call .ConvertToBuildLevel(oEffect, msoAnimateTextByFirstLevel)
' The oEffect reference still points to the first effect of
' the textbox, so change it to animation WithPrevious, the rest
' remain unchanged.
oEffect.Timing.TriggerType = msoAnimTriggerWithPrevious
End With
End Sub

 

[jOsH]

THANKS!!!!!!

 

[jOsH]

One last question (hopefully)

Instead of a wipe I want a boomerang at Medium (Single picture I worte
this code based on yours but the speed always comes out fast

Where should ppTransitionSpeedMedium go?




Sub Example()
Dim oShp As Shape
Dim oSld As Slide
Dim oEffect As Effect
Dim ObjectName As String
Dim SlideNumber As Integer
SlideNumber = 0
SlideNumber = ActiveWindow.View.Slide.SlideIndex
ObjectName = 0
ObjectName = ActiveWindow.Selection.ShapeRange.Name
' Get reference to the shape
Set oShp = ActiveWindow.Selection.ShapeRange(ObjectName)
' Get reference to the slide on which the shape resides
Set oSld = oShp.Parent

With oSld.TimeLine.MainSequence
' Add the wipe effect to the shape
Set oEffect = .AddEffect(oShp, _
msoAnimEffectBoomerang, , msoAnimTriggerOnPageClick,
ppTransitionSpeedMedium )
End With

 

[Shyam Pillai]

ppTransitionSpeedMedium applies to slide transitions and not to animation
timings.

With oSld.TimeLine.MainSequence
' Add the wipe effect to the shape
Set oEffect = .AddEffect(oShp, _
msoAnimEffectBoomerang, , msoAnimTriggerOnPageClick)
' Set the animation duration
oEffect.Timing.Duration = 2
End With