Classe MediaBookmark (PowerPoint VBA)

Contient les propriétés et les méthodes qui spécifient des informations sur le signet du média.

Set

Pour utiliser une variable de classe MediaBookmark, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe MediaBookmark : MediaBookmarks.Item, MediaBookmarks.Add et MediaFormat.MediaBookmarks

Delete

Supprime le signet de la collection.

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

Index

Renvoie la position d’index du signet. En lecture seule.

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

Name

Renvoie le nom du signet. En lecture seule.

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

Position

Renvoie l’heure associée au signet. En lecture seule.

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

MediaBookmarks.Add

Ajoute un nouvel objet MediaBookmark à l’heure spécifiée et avec le nom spécifié.

La collection est retriée automatiquement de manière incrémentielle en fonction de l’heure. Cette méthode retourne une erreur si le signet existe déjà à cette position, si le nombre maximal de signets dépasse 512 ou si l’utilisateur tente d’affecter un nom dont la longueur est supérieure à 255 caractères.

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

Les arguments nommés :

Position (Long) - Position du objet mediabookmark.

Name (String) - Nom du objet mediabookmark.

MediaBookmarks.Count

Renvoie le nombre de signets. En lecture seule.

Les points de début et de fin sont des signets implicites, mais ils ne doivent pas faire partie de la collection MediaBookmarks.

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

MediaBookmarks.Item

Renvoie le objet mediabookmarkspécifié.

Syntaxe : expression.Item (Index)

Index: Position du objet mediabookmark.

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