PowerPoint VBA教程:Comment对象

   
Comments
Comment

代表给定幻灯片或幻灯片范围的批注。Comment对象是Comments集合对象的成员。

使用 Comment对象

使用Comments(index)(其中 index 为批注的编号)或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

使用以下属性访问批注数据:

Author 作者的全名
AuthorIndex 作者在批注列表中的索引
AuthorInitials 作者姓和名的首字母
DateTime 创建批注的日期和时间
Text 批注的文本
LeftTop 批注的屏幕坐标

本示例显示一条消息,其中包含第一张幻灯片上所有批注的作者、日期、时间和内容。


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 VBA教程:Columns集合对象 下页:PowerPoint VBA教程:Comments集合

PowerPoint VBA教程:Comment对象

PowerPoint VBA教程:Comments集合 PowerPoint VBA教程:ConnectorFormat对象
PowerPoint VBA教程:DefaultWebOptions对象 PowerPoint VBA教程:Design对象
PowerPoint VBA教程:Designs集合 PowerPoint VBA教程:Diagram对象
PowerPoint VBA教程:DiagramNode对象 PowerPoint VBA教程:DiagramNodeChildren集合
PowerPoint VBA教程:DiagramNodes集合 PowerPoint VBA教程:DocumentWindow对象
PowerPoint VBA教程:DocumentWindows集合对象 PowerPoint VBA教程:Effect对象
PowerPoint VBA教程:EffectInformation对象 PowerPoint VBA教程:EffectParameters对象
PowerPoint VBA教程:ExtraColors对象 PowerPoint VBA教程:FillFormat对象
PowerPoint VBA教程:Font对象 PowerPoint VBA教程:Fonts集合对象
PowerPoint VBA教程:FreeformBuilder对象 PowerPoint VBA教程:GroupShapes集合对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号