Classe Comment (PowerPoint VBA)

La classe Comment représente un commentaire sur une diapositive ou un groupe de diapositives donné. L’objet Comment est un membre de la collection d’objets comments .

La procédure principale de la classe Comment est Delete

Set

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

Dim cmm as Comment
Set cmm = Application.Selection.Comments(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Comment : Comments.Item, Comments.Add2, Replies, Slide.Comments et SlideRange.Comments

Méthodes

C'est la méthode principale de la classe Comment

Delete - Supprime l’objet Comment spécifié.

cmm.Delete

Autre Méthodes

Comments.Add2 - Remplace la méthode Add masquée. Renvoie un objet Comment qui représente un nouveau Commentaire ajouté à une diapositive. Pour plus d’informations sur les commentaires modernes, consultez la rubrique commentaires modernes dans PowerPoint.

Dim strAuthor As String: strAuthor = 
Dim strAuthorInitials As String: strAuthorInitials = 
Dim strText As String: strText = 
Dim strProviderID As String: strProviderID = 
Dim strUserID As String: strUserID = 
Dim cmms As Comments: Set cmms = 
Dim cmmAdd2 As Comment
Set cmmAdd2 = cmms.Add2(Left:=, Top:=, Author:=strAuthor, AuthorInitials:=strAuthorInitials, Text:=strText, ProviderID:=strProviderID, UserID:=strUserID)

Propriétés

Author Renvoie une valeur de type String qui représente l’auteur d’un objet Comment spécifié. En lecture seule.

Dim strAuthor As String
strAuthor = cmm.Author

AuthorIndex Renvoie une valeur de type Long représentant le numéro d’index du commentaire d’un auteur particulier. Le numéro d’index du premier commentaire d’un auteur donné est 1, celui de son deuxième commentaire est 2. En lecture seule.

Dim lngAuthorIndex As Long
lngAuthorIndex = cmm.AuthorIndex

AuthorInitials Renvoie les initiales de l’auteur sous la forme d’une chaîne en lecture seule pour un objet Comment spécifié. En lecture seule.

Dim strAuthorInitials As String
strAuthorInitials = cmm.AuthorInitials

Collapsed Renvoie si les réponses à un commentaire sont affichées (développées) ou masquées (réduites). Prêt uniquement.

Dim booCollapsed As Boolean
booCollapsed = cmm.Collapsed

DateTime Renvoie la date et l’heure de création d’un commentaire.

Dim dtDateTime As Date
dtDateTime = cmm.DateTime

Left Renvoie une valeur de type Single qui représente la distance en points entre le bord gauche du commentaire et le bord gauche de la diapositive. En lecture seule.

Dim sngLeft As Single
sngLeft = cmm.Left

Parent Renvoie l’objet parent pour l’objet spécifié.

Dim objParent As Object
Set objParent = cmm.Parent

ProviderID Renvoie une chaîne qui représente l’ID du service fournissant des informations de contact. En lecture seule.

Dim strProviderID As String
strProviderID = cmm.ProviderID

Replies Renvoie une collection comments des objets Comment sont enfants du commentaire spécifié. En lecture seule.

Dim cmmsReplies As Comments
Set cmmsReplies = cmm.Replies

Text Renvoie une valeur de type String qui représente le texte d’un commentaire. En lecture seule.

Dim strText As String
strText = cmm.Text

TimeZoneBias Renvoie une valeur de type String qui spécifie l’ajustement du fuseau horaire local pour le contact. En lecture seule.

Dim lngTimeZoneBias As Long
lngTimeZoneBias = cmm.TimeZoneBias

Top Renvoie une valeur de type Single qui représente la distance en points entre le bord gauche du commentaire et le bord gauche de la diapositive. En lecture seule.

Dim sngTop As Single
sngTop = cmm.Top

UserID Renvoie une valeur de type String qui représente l’ID d’utilisateur du contact. En lecture seule.

Dim strUserID As String
strUserID = cmm.UserID

Comments.Count Renvoie le nombre d'objets de la collection spécifiée. En lecture seule.

Dim cmms As Comments: Set cmms = 
Dim lngCount As Long
lngCount = cmms.Count

Comments.Parent Renvoie l’objet parent pour l’objet spécifié.

Dim cmms As Comments: Set cmms = 
Dim objParent As Object
Set objParent = cmms.Parent