PowerPoint VBA教程:Comments集合

   
多个对象
Comments
Comment

代表Comment对象的集合。

使用 Comments集合

使用Comments属性引用 Comments集合。以下示例显示当前幻灯片上批注的编号。


Sub CountComments()
    MsgBox "You have " & ActiveWindow.Selection.SlideRange(1) _
        .Comments.Count & " comments on this slide."
End Sub

使用Add方法在幻灯片中添加一个批注。本示例在当前演示文稿的第一张幻灯片中添加一个新批注。


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:="You might consider reviewing the new specs " & _
        "for more up-to-date information.")
End Sub

上页:PowerPoint VBA教程:Comment对象 下页:PowerPoint VBA教程:ConnectorFormat对象

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集合对象 PowerPoint VBA教程:HeaderFooter对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号