Remove sound from Action Buttons with VBA

  • Thread starter Thread starter Mark Tangard
  • Start date Start date
M

Mark Tangard

This must be easy, but my brain's just not here.

I have a 71-slide presentation. Each page has an Action Button and
plays a sound when clicked. On each slide, I need to remove that sound,
but keep the button's other function, a hyperlink. Can I do this in
VBA? Seems I've tunneled all over but haven't come across the right
property to zap.

TIA
 
I have a 71-slide presentation. Each page has an Action Button and
plays a sound when clicked. On each slide, I need to remove that sound,
but keep the button's other function, a hyperlink. Can I do this in
VBA? Seems I've tunneled all over but haven't come across the right
property to zap.
Click to expand...

When the macro recorder's not your friend, it's not your friend.
But sometimes it is. <g>

' Part of what gets recorded when you apply an action setting with sound:
Sub Macro1()

With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseClick)
.Action = ppActionNextSlide
.SoundEffect.Name = "Applause"
.AnimateAction = msoFalse
End With

End Sub

' And part of what gets recorded when you remove the sound:
Sub Macro2()

With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseClick)
.Action = ppActionNextSlide
' HERE:
.SoundEffect.Type = ppSoundNone
.AnimateAction = msoFalse
End With

End Sub
 
Ahhh, but of course. (It's been long, long time since I had good vibes
from the recorder.) Thanks, Steve.
 
Back
Top