Collection: CommentSelectedElements

Dim oMyReportObj, oMyReportObjects, oMySelection, sOutput
sOutput = ""
Set oMyReportObjects = Report.ActiveSheet.Objects
For Each oMyReportObj in oMyReportObjects
  If oMyReportObj.ObjectType = eReportObjectComment Then
    Call MsgBoxDisp("Object name: " & oMyReportObj.Name & _
    vbCrLf & "Number of selected elements: " & oMyReportObj.SelectedElements.Count)
    For Each oMySelection in oMyReportObj.SelectedElements
      sOutput = sOutput & "Element type: " & oMySelection.Type & vbCrLf
    Next
  End If
Next
Call MsgBoxDisp(sOutput)