MediaType Property
Applies To
Shape object, ShapeRange collection object.
Description
Returns the OLE media type. Can be one of the following PpMediaType constants: ppMediaTypeMixed, ppMediaTypeMovie, ppMediaTypeOther, or ppMediaTypeSound. Read-only Long.
Example
This example sets all native sound objects on slide one in the active presentation to loop until manually stopped during a slide show.
For Each so In ActivePresentation.Slides(1).Shapes
If so.Type = msoMedia Then
If so.MediaType = ppMediaTypeSound Then
so.AnimationSettings.PlaySettings.LoopUntilStopped = True
End If
End If
Next