PowerPoint VBA教程:HasRevisionInfo属性

返回PpRevisionInfo 类型常数,该常数代表演示文稿是合并作者文档、带有基线的审阅者文档、还是普通的 Microsoft PowerPoint 文档。只读。

PpRevisionInfo 可以是下列 PpRevisionInfo 类型常数之一。
ppRevisionInfoBaseline 演示文稿有基线。 
ppRevisionInfoMerged 演示文稿为合并作者演示文稿。
ppRevisionInfoNone 演示文稿没有审阅者信息。

expression.HasRevisionInfo

expression  必选。该表达式返回“应用于”列表中的对象之一。

说明

批注不作为审阅者信息。

VBA示例

以下示例添加并删除基线,并同时向用户报告状态。


Sub AddABaseline()
    ActivePresentation.AddBaseline
    Call ReportRevisionInfo(ActivePresentation)
    ActivePresentation.RemoveBaseline
    Call ReportRevisionInfo(ActivePresentation)
End Sub
Sub ReportRevisionInfo(pre As Presentation)
    Select Case pre.HasRevisionInfo
        Case ppRevisionInfoBaseline
            MsgBox "The presentation has a base line."
        Case ppRevisionInfoMerged
            MsgBox "The presentation is a merged author presentation."
        Case ppRevisionInfoNone
            MsgBox "The presentation has no reviewer information."
        Case Else
            MsgBox "Couldn't determine revision information."
    End Select
End Sub

上页:PowerPoint VBA教程:HasDiagramNode属性 下页:PowerPoint VBA教程:HasTable属性

PowerPoint VBA教程:HasRevisionInfo属性

PowerPoint VBA教程:HasTable属性 PowerPoint VBA教程:HasText属性
PowerPoint VBA教程:HasTextFrame属性 PowerPoint VBA教程:HasTitle属性
PowerPoint VBA教程:HasTitleMaster属性 PowerPoint VBA教程:Header属性
PowerPoint VBA教程:HeadersFooters属性 PowerPoint VBA教程:Height属性
PowerPoint VBA教程:Hidden属性 PowerPoint VBA教程:HideWhileNotPlaying属性
PowerPoint VBA教程:HorizontalAnchor属性 PowerPoint VBA教程:HorizontalFlip属性
PowerPoint VBA教程:HTMLProject属性 PowerPoint VBA教程:HTMLVersion属性
PowerPoint VBA教程:Hyperlink属性 PowerPoint VBA教程:Hyperlinks属性
PowerPoint VBA教程:Id属性 PowerPoint VBA教程:IncludeNavigation属性
PowerPoint VBA教程:IndentLevel属性 PowerPoint VBA教程:Index属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号