Clase Comment (PowerPoint VBA)

La clase Comment representa un comentario en una diapositiva o intervalo de diapositivas. El objeto Comment es un miembro del objeto de colección de comentarios.

El principal procedimiento de la clase Comment es Delete

Set

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

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

Los siguientes procedimientos se pueden usar para establecer variables de clase Comment : Comments.Item, Comments.Add2, Replies, Slide.Comments y SlideRange.Comments

Métodos

Este es el método principal de la clase Comment

Delete - Elimina el objeto comment especificado.

cmm.Delete

Otros Métodos

Comments.Add2 - Reemplaza el método oculto Add. Devuelve un objeto Comment que representa un nuevo comentario agregado a una diapositiva. Para obtener más información sobre los comentarios modernos, vea comentarios modernos en 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)

Propiedades

Author Devuelve una cadena que representa al autor de un objeto Comment especificado. Solo lectura.

Dim strAuthor As String
strAuthor = cmm.Author

AuthorIndex Devuelve un Long que representa el número de índice de un comentario para un autor específico. Al primer comentario de un autor específico tiene un número de índice de 1, el segundo comentario un número de índice 2. Es de sólo lectura.

Dim lngAuthorIndex As Long
lngAuthorIndex = cmm.AuthorIndex

AuthorInitials Devuelve las iniciales del autor como cadena de solo lectura para un objeto comment especificado. Solo lectura.

Dim strAuthorInitials As String
strAuthorInitials = cmm.AuthorInitials

Collapsed Devuelve si las respuestas a un comentario se muestran (se expanden) o se ocultan (contrae). Solo está listo.

Dim booCollapsed As Boolean
booCollapsed = cmm.Collapsed

DateTime Devuelve la fecha y la hora de creación de un comentario.

Dim dtDateTime As Date
dtDateTime = cmm.DateTime

Left Devuelve un valor Single que representa la distancia en puntos desde el borde izquierdo del comentario al borde izquierdo de la diapositiva. Solo lectura.

Dim sngLeft As Single
sngLeft = cmm.Left

Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = cmm.Parent

ProviderID Devuelve una cadena que representa el identificador del servicio que proporciona información de contacto. Solo lectura.

Dim strProviderID As String
strProviderID = cmm.ProviderID

Replies Devuelve una colección Comments de objetos comment que son elementos secundarios del comentario especificado. Solo lectura.

Dim cmmsReplies As Comments
Set cmmsReplies = cmm.Replies

Text Devuelve una cadena que representa el texto de un comentario. Solo lectura.

Dim strText As String
strText = cmm.Text

TimeZoneBias Devuelve una cadena que especifica el ajuste de la zona horaria local del contacto. Solo lectura.

Dim lngTimeZoneBias As Long
lngTimeZoneBias = cmm.TimeZoneBias

Top Devuelve un valor Single que representa la distancia en puntos desde el borde izquierdo del comentario al borde izquierdo de la diapositiva. Solo lectura.

Dim sngTop As Single
sngTop = cmm.Top

UserID Devuelve una cadena que representa el identificador de usuario del contacto. Solo lectura.

Dim strUserID As String
strUserID = cmm.UserID

Comments.Count Devuelve el número de objetos de la colección especificada. Solo lectura.

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

Comments.Parent Devuelve el objeto primario del objeto especificado.

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