Shape.MediaType (PowerPoint)
Retorna o tipo de mídia OLE. Somente leitura. Os valores de retorno possíveis são ppMediaTypeMixed - Mista, ppMediaTypeMovie - Filme, ppMediaTypeOther - Outras pessoas, ppMediaTypeSound - Som.
O valor da propriedade MediaType pode ser uma destas constantes PpMediaType .
Dim pmtMediaType As PpMediaType
pmtMediaType = ActivePresentation.Slides(1).Shapes(1).MediaType