MediaType Property
Returns the OLE media type. Read-only PpMediaType.
| PpMediaType can be one of these PpMediaType constants. |
| ppMediaTypeMixed |
| ppMediaTypeMovie |
| ppMediaTypeOther |
| ppMediaTypeSound |
expression.MediaType
expression Required. An expression that returns one of the objects in the Applies To list.
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