ShapeRange.MediaType Property
Returns the OLE media type. Read-only.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
ReadOnly Property MediaType As PpMediaType
Get
'Usage
Dim instance As ShapeRange
Dim value As PpMediaType
value = instance.MediaType
PpMediaType MediaType { get; }
Property Value
Type: Microsoft.Office.Interop.PowerPoint.PpMediaType
PpMediaType
Remarks
The value of the MediaType property can be one of these PpMediaType constants.
ppMediaTypeMixed |
ppMediaTypeMovie |
ppMediaTypeOther |
ppMediaTypeSound |
Examples
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