ShapeRange.MediaType (PowerPoint)

Returns the OLE media type. Possible return values are ppMediaTypeMixed - Mixed, ppMediaTypeMovie - Movie, ppMediaTypeOther - Others, ppMediaTypeSound - Sound.

The value of the MediaType property can be one of these PpMediaType constants.

Dim pmtMediaType As PpMediaType
pmtMediaType = ActivePresentation.Slides(1).Shapes(1).Ungroup.MediaType