Classe MediaFormat (PowerPoint VBA)

Contém métodos e propriedades que permitem o acesso e o controle sobre as mídias de áudio e vídeo.

Set

Para usar uma variável de classe MediaFormat, ela primeiro precisa ser instanciada por exemplo

Dim mft as MediaFormat
Set mft = ActiveWindow.RangeFromPoint.MediaFormat

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo MediaFormat: Shape.MediaFormat e ShapeRange.MediaFormat

Temas

Alguns procedimentos nesta classe foram agrupados em temas e são descritos em páginas de tema separadas

Format with its procedures SampleHeight e SampleWidth
Display/Show with its procedures SetDisplayPicture e SetDisplayPictureFromFile

Métodos

Estes são os principais métodos da classe

Resample - Adiciona o objeto de mídia atual à fila e inicia a reamostragem, com base nos parâmetros especificados.

ActiveWindow.RangeFromPoint.MediaFormat.Resample

Propriedades

AudioCompressionType Retorna o formato de compressão de áudio. Somente leitura.

Dim strAudioCompressionType As String
strAudioCompressionType = ActiveWindow.RangeFromPoint.MediaFormat.AudioCompressionType

AudioSamplingRate Retorna a taxa de amostragem de áudio por segundo da mídia. Somente leitura.

Dim lngAudioSamplingRate As Long
lngAudioSamplingRate = ActiveWindow.RangeFromPoint.MediaFormat.AudioSamplingRate

EndPoint Obtém ou define o tempo do ponto final da região de corte da mídia. Leitura/gravação.

ActiveWindow.RangeFromPoint.MediaFormat.EndPoint =

FadeInDuration Obtém ou define a duração do fade in da mídia, em milissegundos. Leitura/gravação.

ActiveWindow.RangeFromPoint.MediaFormat.FadeInDuration =

FadeOutDuration Obtém ou define a duração do fade out da mídia, em milissegundos. Leitura/gravação.

ActiveWindow.RangeFromPoint.MediaFormat.FadeOutDuration =

IsEmbedded Retorna se o arquivo de mídia é incorporado. Somente leitura.

Dim booIsEmbedded As Boolean
booIsEmbedded = ActiveWindow.RangeFromPoint.MediaFormat.IsEmbedded

IsLinked Retorna se o arquivo de mídia é vinculado. Somente leitura.

Dim booIsLinked As Boolean
booIsLinked = ActiveWindow.RangeFromPoint.MediaFormat.IsLinked

Length Retorna o comprimento total da mídia em unidades de tempo. Somente leitura.

Dim lngLength As Long
lngLength = ActiveWindow.RangeFromPoint.MediaFormat.Length

MediaBookmarks Retorna uma coleção MediaBookmarks que representa os indicadores de mídia associados ao objeto especificado. Somente leitura.

Dim mbsMediaBookmarks As MediaBookmarks
Set mbsMediaBookmarks = ActiveWindow.RangeFromPoint.MediaFormat.MediaBookmarks

Muted Retorna se a reprodução de áudio da mídia está sem som. Leitura/gravação

ActiveWindow.RangeFromPoint.MediaFormat.Muted = True

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.MediaFormat.Parent

ResamplingStatus Retorna o status da tarefa de reamostragem. Somente leitura.

Dim pmtsResamplingStatus As PpMediaTaskStatus
pmtsResamplingStatus = ActiveWindow.RangeFromPoint.MediaFormat.ResamplingStatus

StartPoint Obtém ou define o ponto inicial da região de corte. Leitura/gravação.

ActiveWindow.RangeFromPoint.MediaFormat.StartPoint =

VideoCompressionType Retorna uma cadeia de caracteres que representa o formato de compactação de vídeo da mídia. Somente leitura.

Dim strVideoCompressionType As String
strVideoCompressionType = ActiveWindow.RangeFromPoint.MediaFormat.VideoCompressionType

VideoFrameRate Retorna a taxa de quadros de vídeo por segundo da mídia. Somente leitura.

Dim lngVideoFrameRate As Long
lngVideoFrameRate = ActiveWindow.RangeFromPoint.MediaFormat.VideoFrameRate

Volume Obtém ou define o volume da mídia. Leitura/gravação.

ActiveWindow.RangeFromPoint.MediaFormat.Volume =