Freigeben über

Comments-Objekt (PowerPoint)

  • Artikel

Stellt eine Auflistung von Comment -Objekten dar.

Beispiel

Verwenden Sie die Comments -Eigenschaft, um auf der Comments -Auflistung verweisen. Im folgenden Beispiel wird die Anzahl von Kommentaren auf der aktuellen Folie angezeigt.

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

Verwenden Sie die Add -Methode, um einer Folie einen Kommentar hinzugefügt. In diesem Beispiel wird der ersten Folie der aktiven Präsentation einen neuen Kommentar hinzugefügt.

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

Siehe auch

PowerPoint-Objektmodellreferenz

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.