Classe MediaBookmark (PowerPoint VBA)

Contém propriedades e métodos que especificam informações sobre o indicador da mídia.

Set

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

Dim mbk as MediaBookmark
Set mbk = ActiveWindow.RangeFromPoint.MediaFormat.MediaBookmarks(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo MediaBookmark: MediaBookmarks.Item, MediaBookmarks.Add e MediaFormat.MediaBookmarks

Delete

Exclui o indicador da coleção.

ActiveWindow.RangeFromPoint.MediaFormat.MediaBookmarks(1).Delete

Index

Retorna a posição de índice do indicador. Somente leitura.

Dim lngIndex As Long
lngIndex = ActiveWindow.RangeFromPoint.MediaFormat.MediaBookmarks(1).Index

Name

Retorna o nome do indicador. Somente leitura.

Dim strName As String
strName = ActiveWindow.RangeFromPoint.MediaFormat.MediaBookmarks(1).Name

Position

Retorna o horário em que está associado ao indicador. Somente leitura.

Dim lngPosition As Long
lngPosition = ActiveWindow.RangeFromPoint.MediaFormat.MediaBookmarks(1).Position

MediaBookmarks.Add

Adiciona um novo MediaBookmark na hora especificada e usando o nome especificado.

A coleção é automaticamente reclassificada de forma incremental pela hora. Esse método retornará um erro se o indicador já existir na posição, se o número máximo de indicadores exceder 512 ou se o usuário tentar atribuir um nome que tenha um comprimento maior que 255 caracteres.

Sintaxe : expression.Add (Position, Name)

Dim lngPosition As Long: lngPosition = 
Dim strName As String: strName = 
Dim mbk As MediaBookmark
Set mbk = ActiveWindow.RangeFromPoint.MediaFormat.MediaBookmarks.Add(Position:=lngPosition, Name:=strName)

Arguments

O seguinte argumento é opcional

Position (Long) - A posição do MediaBookmark.

Name (String) - O nome do MediaBookmark.

MediaBookmarks.Count

Retorna o número de indicadores. Somente leitura.

Os pontos inicial e final são indicadores implícitos, mas não devem fazer parte da coleção MediaBookmarks.

Dim lngCount As Long
lngCount = ActiveWindow.RangeFromPoint.MediaFormat.MediaBookmarks.Count

MediaBookmarks.Item

Retorna o MediaBookmarkespecificado.

Sintaxe : expression.Item (Index)

Index: A posição do MediaBookmark.

Dim mbk As MediaBookmark
Set mbk = ActiveWindow.RangeFromPoint.MediaFormat.MediaBookmarks(Index:=1)