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