ShapeRange.MediaType (PowerPoint)

Renvoie le type de média OLE. En lecture seule. Les valeurs de retour possibles sont ppMediaTypeMixed - Mixte, ppMediaTypeMovie - Cinémathèque, ppMediaTypeOther - Autres, ppMediaTypeSound - Signal.

La valeur de la propriété MediaType peut être l’une de ces constantes PpMediaType .

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