Document.Company 属性 (Visio)

获取或设置文档所属公司的名称（文档属性之一）。 读/写。

语法

表达式。公司

表达 一个代表 Document 对象的变量。

返回值

String

备注

设置“公司”属性等效于在“属性”对话框中的“公司”框中输入信息， (单击“文件”选项卡，单击“信息”，再单击“属性”，然后单击“高级属性”) 。

示例

以下 Microsoft Visual Basic 宏显示如何使用 Company 属性记录为其绘图的公司。 该宏将 Document 对象添加到 Documents 集合中并设置 Document 对象的 Company 属性以及其他属性。

在运行此宏之前，请用您自己的值替换以下代码中以倾斜字体显示的项目。 要确认已经设置这些属性，请打开“属性”对话框。

 
Public Sub Company_Example() 
  
    Dim vsoDocument As Visio.Document  
 
    Set vsoDocument = Documents.Add("")  
 
    'Set the properties of the document.  
    vsoDocument.Title = "document title "  
    vsoDocument.Creator = "author name "  
    vsoDocument.Description = "document description "  
    vsoDocument.Keywords = "keyword1, keyword2, keyword3 "  
    vsoDocument.Subject = "document subject "  
    vsoDocument.Manager = "manager name "  
    vsoDocument.Company = "company name "  
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。