Comment オブジェクト

Comment オブジェクト

Comments Comment

指定したスライドまたはスライド範囲のコメントを表します。Comment オブジェクトは、Comments コレクション オブジェクトのメンバーです。

使い方

Comments(index) を使用します。引数 index には、コメントの番号を指定するか、またはスライドの単一のコメントにアクセスする Item メソッドを指定します。次の使用例では、スライド 1 の最初のコメントの作成者を表示します。コメントがない場合は、そのことを示すメッセージを表示します。

Sub ShowComment()
    With ActivePresentation.Slides(1).Comments
        If .Count > 0 Then
            MsgBox "このスライドの最初のコメントの作成者は次のとおりです。" & _
                .Item(1).Author
        Else
            MsgBox "このスライドにはコメントがありません。"
        End If
    End With
End Sub
		

コメント データにアクセスするには、次のプロパティを使用します。

次の使用例は、作成者、日付と時刻、およびスライド 1 のすべてのメッセージの内容が含まれたメッセージを表示します。

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 "このスライドのコメントは、次のとおりです。" & vbLf _
            & strComments
    Else
        MsgBox "このスライドにはコメントがありません。"
    End If
End Sub