Company Property [Visio 2003 SDK Documentation]

  • Article

Gets or sets the name of the company the document belongs to--one of the document's properties.

strRet = object**.Company**

object**.Company** = stringExpression

strRet     String. The current string that names the company.

object     Required. An expression that returns a Document object.

stringExpression     Required String. The new string that names the company.

Version added

5.0

Remarks

Setting the Company property is equivalent to entering information in the Company box in the Properties dialog box (File menu).

Security  Use this feature with caution. Sensitive or confidential information could be revealed to other users.

Example

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

Applies to | Document object

See Also | Category property | Description property | HyperlinkBase property | Keywords property | Manager property | Subject property | Title property