Removal of audio attached to an animation effect

[reva]

Hi,
Can anybody give me a VBA script solution for removing the audio
attached to an animation effect regardless of whether it is an
Entrance/Emphasis/Exit animations?

I tried doing it using Type property of the SoundEffect object value
set to "None" but it didn't work well.

Thanks,
Revathi.S

 

[David M. Marcovitz]

I am not an expert on this, but I had (what I suspect is) the same look
around as you. The SoundEffect object seems to be associated with a
shape, which leads me to believe that it is not using the newer animation
stuff (the timeline), which leads me to believe that it won't work.
However, I couldn't find any way to access sound effects via the
timeline. Sorry, this only seems to explain why your method probably
won't work, but I can't figure out a method that will work.
--David

--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

 

[Steve Rindsberg]

Hi,
Can anybody give me a VBA script solution for removing the audio
attached to an animation effect regardless of whether it is an
Entrance/Emphasis/Exit animations?

I tried doing it using Type property of the SoundEffect object value
set to "None" but it didn't work well.

This seems to do it here:

Sub killsound()
With ActiveWindow.Selection.ShapeRange
With .AnimationSettings.SoundEffect
' show us what we're about to destroy first ...
Debug.Print .Name
Debug.Print .Type
' remove the sound
.Type = ppSoundNone
End With
End With
End Sub

 

[Guest]

I thought I understood this but ...

Anyway maybe what I DO know (I think) willl help someone sort it.

If you use animation settings (which is for backward compatability) PPT
assumes you have 2000 or earlier. Since this version doesn't have emphasis or
exits ppt will either error or worse just delete them if it sees any.

I believed that you could get to sound settings in the timeline using
mainsquence(i).effectinfomation.soundsettings but this seems not to work with
exit / emphasis either for me.

I did manage to bodge/cludge it by recording the exit state , setting to
entrance and then resetting it back after removing the sound - clearly this
isn't the way to do it!

 

[Steve Rindsberg]

I thought I understood this but ...

There I have the advantage of you. I *know* I'm clueless when it comes to
animation. ;-)

If you use animation settings (which is for backward compatability) PPT
assumes you have 2000 or earlier. Since this version doesn't have emphasis or
exits ppt will either error or worse just delete them if it sees any.

IIRC, it ignores them when simply playing presentations, but if you edit the
animation settings in 2000, you're liable to lose any effects previously applied
in XP or later.