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?

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.

--
Echo [MS PPT MVP]
http://www.echosvoice.com

<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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?
>

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?

On Mon, 12 Sep 2005 13:04:12 -0500, "Echo S" <(E-Mail Removed)>
wrote:

>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.

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/

--
Echo [MS PPT MVP]
http://www.echosvoice.com


<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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?
>
> On Mon, 12 Sep 2005 13:04:12 -0500, "Echo S" <(E-Mail Removed)>
> wrote:
>
> >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.
>

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

On Mon, 12 Sep 2005 19:15:32 -0500, "Echo S" <(E-Mail Removed)>
wrote:

>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/

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 ??










On Mon, 12 Sep 2005 13:04:12 -0500, "Echo S" <(E-Mail Removed)>
wrote:

>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.

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 ??










On Mon, 12 Sep 2005 13:04:12 -0500, "Echo S" <(E-Mail Removed)>
wrote:

>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.

Do you wish to display the custom animation task pane?

--
Regards,
Shyam Pillai

Image Importer Wizard: http://skp.mvps.org/iiw.htm
<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Let Try something simplier. Is there a VB command to Display the
> custom animation screen?
>
> On Mon, 12 Sep 2005 19:15:32 -0500, "Echo S" <(E-Mail Removed)>
> wrote:
>
>>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,
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

--
Regards,
Shyam Pillai

Toolbox: http://skp.mvps.org/toolbox


<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>
> 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 ??
>
>
>
>
>
>
>
>
>
>
> On Mon, 12 Sep 2005 13:04:12 -0500, "Echo S" <(E-Mail Removed)>
> wrote:
>
>>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.
>

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


--
Regards,
Shyam Pillai

Image Importer Wizard: http://skp.mvps.org/iiw.htm
<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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
>
>
>
>
>
>
>
>
> On Wed, 14 Sep 2005 09:27:57 +0530, "Shyam Pillai"
> <(E-Mail Removed)> wrote:
>
>>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
>