共用方式為


PowerPoint) (ShapeRange.MediaType 屬性

會傳回 OLE 多媒體類型。 唯讀。

語法

expressionMediaType

表達 代表 ShapeRange 物件的 變數。

傳回值

PpMediaType

註解

MediaType 屬性的值可以是下列其中一個 PpMediaType 常數。

ppMediaTypeMixed
ppMediaTypeMovie
ppMediaTypeOther
ppMediaTypeSound

範例

在這個範例中,會設定使用中簡報第一張投影片上所有原生聲音物件在投影片放映期間都會循環播放,直到手動停止為止。

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

另請參閱

ShapeRange 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應