Объект Comment (PowerPoint)

Представляет комментарий к заданному слайду или диапазону слайдов. Объект Comment является членом объекта коллекции Comments .

Замечания

Используйте следующие свойства для доступа к данным примечаний:

Свойство	Описание
Author	Полное имя автора
AuthorIndex	Индекс автора в списке комментариев
AuthorInitials	Инициалы автора
DateTime	Дата и время создания комментария
Текст	Текст комментария
Слева, сверху	Экранные координаты комментария

Пример

Используйте примечания (индекс), где индекс — это номер комментария, или метод Item для доступа к одному примечаниям на слайде. В этом примере отображается автор первого комментария на первом слайде. Если примечаний нет, отображается сообщение с таким сообщением.

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

В этом примере отображается сообщение, содержащее автора, дату и время, а также содержимое всех сообщений на первом слайде.

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

См. также

Справочник по объектной модели PowerPoint

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.