Comments コレクション

Comments コレクション

複数のオブジェクト Comments Comment

Comment オブジェクトのコレクションを表します。

使い方

Comments コレクションを参照するには、Comments プロパティを使用します。次の使用例は、現在のスライドのコメント数を表示します。

Sub CountComments()
    MsgBox "このスライドには、" & ActiveWindow.Selection.SlideRange(1) _
        .Comments.Count & "のコメントがあります。"
End Sub
		

スライドにコメントを追加するには、Add メソッドを使用します。次の使用例は、現在のプレゼンテーションのスライド 1 に新しいコメントを追加します。

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:="より最新の情報を示すために、新しい仕様を" & _
        "検討してはどうですか。")
End Sub