Objeto Comments (PowerPoint)

Representa una colección de objetos Comment.

Ejemplo

Utilice la propiedad Comments para hacer referencia a la colección Comments. El ejemplo siguiente muestra el número de comentarios de la diapositiva actual.

Sub CountComments()
    MsgBox "You have " & ActiveWindow.Selection.SlideRange(1) _
        .Comments.Count & " comments on this slide."
End Sub

Utilice el método Add para agregar un comentario a una diapositiva. En este ejemplo se agrega un nuevo comentario a la primera diapositiva de la presentación activa.

Sub AddComment()

    Dim sldNew As Slide
    Dim cmtNew As Comment

    Set sldNew = ActivePresentation.Slides.Add(Index:=1, _
        Layout:=ppLayoutBlank)

    Set cmtNew = sldNew.Comments.Add(Left:=12, Top:=12, _
        Author:="Jeff Smith", AuthorInitials:="JS", _
        Text:="You might consider reviewing the new specs" & _
        "for more up-to-date information.")

End Sub

Vea 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.