Comment-Objekt (PowerPoint)

Stellt einen Kommentar zu einer bestimmten Folie oder der Folienbereich. Das Comment -Objekt ist ein Element der Comments -Auflistungsobjekt.

Hinweise

Eigenschaften für den Zugriff auf Kommentardaten:

Eigenschaft	Beschreibung
Autor	Der vollständige Name des Autors.
AuthorIndex	Der Index des Autors innerhalb der Liste der Kommentare.
AuthorInitials	Die Initialen des Autors.
DateTime	Datum und Zeitpunkt der Erstellung des Kommentars.
Text	Der Text des Kommentars.
Links ,oben	Die Bildschirmkoordinaten des Kommentars.

Beispiel

Verwenden Sie Kommentare (Index), wobei index die Nummer des Kommentars ist, oder die Item-Methode , um auf einen einzelnen Kommentar auf einer Folie zuzugreifen. In diesem Beispiel wird den Autor des ersten Kommentars der ersten Folie an. Wenn keine Kommentare vorhanden sind, wird eine Meldung wie angezeigt.

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

Im folgenden Beispiel wird eine Meldung angezeigt, die zu jedem Kommentar der ersten Folie den Autor, das Datum und den Zeitpunkt der Erstellung sowie den Inhalt auflistet.

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

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.