MediaType 属性

返回 OLE 媒体类型。只读。PpMediaType 类型。

expression  必选。该表达式返回“应用于”列表中的对象之一。

示例

本示例设置幻灯片放映时，当前演示文稿第一张幻灯片的所有原始声音对象循环播放直到被手动停止。

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