Table of contents
TOC
折叠目录
展开目录

Document.Company 属性 (Visio)Document.Company Property (Visio)

office 365 dev account|上次更新日期: 2018/3/13
|
2 参与人员

获取或设置文档所属公司的名称(文档属性之一)。可读写。Gets or sets the name of the company the document belongs to, one of the document's properties. Read/write.

语法Syntax

表达式公司expression . Company

表达式_一个表示文档对象的变量。_expression A variable that represents a Document object.

返回值Return Value

字符串String

注解Remarks

设置公司属性等效于在属性对话框中的公司框中输入信息 (单击文件选项卡,单击信息,单击属性,然后单击高级属性)。Setting the Company property is equivalent to entering information in the Company box in the Properties dialog box (click the File tab, click Info, click Properties, and then click Advanced Properties).

安全说明Security Note

示例Example

此 Microsoft Visual Basic 宏显示如何使用公司财产记录的公司为其进行绘图。它将文档对象添加到文档集合,并设置文档对象的公司财产,以及其他属性。This Microsoft Visual Basic macro shows how to use the Company property to document the company for which the drawing is made. It adds a Document object to the Documents collection and sets the Document object's Company property as well as other properties.

运行此宏之前,替换为您自己倾斜在以下代码中的项的值。若要验证已设置了这些属性,请打开属性对话框。Before running this macro, substitute your own values for the items in italic in the following code. To verify that these properties have been set, open the Properties dialog box.


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
© 2018 Microsoft