Results 1 to 5 of 5
  1. #1
    Lounger
    Join Date
    Aug 2002
    Location
    Kansas City, Missouri, USA
    Posts
    35
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Copy Custom Animation (PPT XP)

    The situation is - there are several grouped items on a slide. Custom animation has been applied to the first group (i.e. Entrance=Fly In from left-slow, after previous). Is there any way to copy this animation setting to the rest of the groups on this slide without reinventing the wheel with each group?

  2. #2
    3 Star Lounger
    Join Date
    Jul 2002
    Location
    Memphis, Tennessee, USA
    Posts
    243
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Copy Custom Animation (PPT XP)

    None that I know of thoughout any version of PPT. I don't think you'll find such a tool.

    When I have had to set similiar animation to mulitple objects, I have selected them all and entered the effects all at once. I then would have to tweak the sequence and other aspects, but at least some of the job was done in bulk.

    -Lenny

  3. #3
    Lounger
    Join Date
    Aug 2002
    Location
    Kansas City, Missouri, USA
    Posts
    35
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Copy Custom Animation (PPT XP)

    It worked - all I have to do is set after/with previous for the individual items after setting the same animation for all the groups. Time saver. Thanks!

  4. #4
    Silver Lounger
    Join Date
    Jan 2001
    Location
    West Long Branch, New Jersey, USA
    Posts
    1,921
    Thanks
    6
    Thanked 9 Times in 7 Posts

    Re: Copy Custom Animation (PPT XP)

    Gwen,

    looks like you may have an answer already from LennyJo. However there was a solution that was developed by SammyB, using VBA, for a different purpose (ungroup an item to change the fill color of some objects in the group but lose the animation when regrouping) that used VBA. See SammyB's post if interested.

    The main thing that suggests it could be enhanced to serve your purpose would be the following statements (there's more in Sammy's post then this):
    <pre>Sub copyAnimations(src As Shape, dest As Shape)
    ' This module copies the animations from src to dest
    With dest.AnimationSettings
    If Not src.AnimationSettings.Animate Then Exit Sub
    .AdvanceMode = src.AnimationSettings.AdvanceMode
    .AdvanceTime = src.AnimationSettings.AdvanceTime
    .AfterEffect = src.AnimationSettings.AfterEffect
    .Animate = src.AnimationSettings.Animate
    .AnimateBackground = src.AnimationSettings.AnimateBackground
    .AnimateTextInReverse = src.AnimationSettings.AnimateTextInReverse
    .AnimationOrder = src.AnimationSettings.AnimationOrder
    .DimColor = src.AnimationSettings.DimColor
    .EntryEffect = src.AnimationSettings.EntryEffect
    Select Case src.AnimationSettings.SoundEffect.Type
    Case ppSoundFile
    .SoundEffect.ImportFromFile src.AnimationSettings.SoundEffect.Name
    Case Else ' Probably won't work
    .SoundEffect.Type = src.AnimationSettings.SoundEffect.Type
    End Select
    .TextLevelEffect = src.AnimationSettings.TextLevelEffect
    .TextUnitEffect = src.AnimationSettings.TextUnitEffect
    End With
    End Sub

    </pre>


    As the comment at the beginning says, he's copying from a source to a destination. Even if you don't know VBA, you can probably read the statements to see he's copying various animation effects from one object to another. In your case, you'd probably want to animate one object, select it, and run an altered (probably simpler) macro from what Sammy did to read the animations of the selected object and, going thru a loop, apply that set of animations to all the objects on a slide.

    However, given LennyJo's solution, no need for that.

    Fred

  5. #5
    Lounger
    Join Date
    Aug 2002
    Location
    Kansas City, Missouri, USA
    Posts
    35
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Copy Custom Animation (PPT XP)

    Thank you. I'll add this to my bag of tricks.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •