Objeto Comment (PowerPoint)

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

Comentarios

Utilice las siguientes propiedades para tener acceso a la información de comentario:

Propiedad	Descripción
Author	Nombre completo del autor
AuthorIndex	Índice del autor en la lista de comentarios
AuthorInitials	Iniciales del autor
DateTime	Fecha y hora de creación del comentario
Text	Texto del comentario
Izquierda ,arriba	Coordenadas en la pantalla del comentario

Ejemplo:

Use Comments (index), donde index es el número del comentario, o el método Item para acceder a un único comentario en una diapositiva. En este ejemplo se muestra al autor del primer comentario en la primera diapositiva. Si no hay ningún comentario, muestra un mensaje con esta.

Sub ShowComment()

    With ActivePresentation.Slides(1).Comments

        If .Count > 0 Then

            MsgBox "The first comment on this slide is by " & .Item(1).Author

        Else

            MsgBox "There are no comments on this slide."

        End If

    End With

End Sub

En este ejemplo se muestra un mensaje con el autor, fecha, hora y contenido de todos los mensajes de la primera diapositiva.

Sub SlideComments()

    Dim cmtExisting As Comment
    Dim cmtAll As Comments
    Dim strComments As String

    Set cmtAll = ActivePresentation.Slides(1).Comments

    If cmtAll.Count > 0 Then
        For Each cmtExisting In cmtAll
            strComments = strComments & cmtExisting.Author & vbTab & _
                cmtExisting.DateTime & vbTab & cmtExisting.Text & vbLf
        Next
        MsgBox "The comments in your document are as follows:" & vbLf & strComments
    Else
        MsgBox "This slide doesn't have any comments."
    End If

End Sub

Consulte también

Referencia del modelo de objetos de PowerPoint

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.