TPE
Tavvafi@gmail.com |
≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
Sub RemoveSounds() Dim oSl as Slide Dim oSh as Shape Dim x as Long For Each oSl in ActivePresentation.Slides For x = oSl.Shapes.Count to 1 Step -1 Set oSh = oSl.Shapes(x) if oSh.Type = msoMedia Then If oSh.MediaType = ppMediaTypeSound Then osh.Delete End If End If Next Next End Sub