Clase MediaBookmark (PowerPoint VBA)

Contiene propiedades y métodos que especifican información sobre el marcador del objeto multimedia.

Set

Para usar una variable de clase MediaBookmark, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase MediaBookmark : MediaBookmarks.Item, MediaBookmarks.Add y MediaFormat.MediaBookmarks

Delete

Elimina el marcador de la colección.

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

Index

Devuelve la posición de índice del marcador. Solo lectura.

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

Name

Devuelve el nombre del marcador. Solo lectura.

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

Position

Devuelve la hora a la que está asociada con el marcador. Solo lectura.

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

MediaBookmarks.Add

Agrega un nuevo objeto MediaBookmark en el momento especificado y utilizando el nombre especificado.

La colección se reordena de forma automática, incrementalmente por hora. Este método devuelve un error si el marcador ya existe en esa posición, si el número máximo de marcadores supera los 512 o si el usuario intenta asignar un nombre que tiene una longitud mayor de 255 caracteres.

Sintaxis : 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

Estos son los argumentos con nombre :

Position (Long) - Posición de la MediaBookmark.

Name (String) - El nombre del MediaBookmark.

MediaBookmarks.Count

Devuelve el número de marcadores. Solo lectura.

Los puntos inicial y final son marcadores implícitos, pero no deben formar parte de la colección MediaBookmarks.

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

MediaBookmarks.Item

Devuelve el MediaBookmarkespecificado.

Sintaxis : expression.Item (Index)

Index: Posición de la MediaBookmark.

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