Table of contents
TOC
Recolher sumário
Expandir sumário

Propriedade Document.Company (Visio)Document.Company Property (Visio)

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

Obtém ou define o nome da empresa à qual o documento pertence, uma das propriedades do documento. Leitura/gravação.Gets or sets the name of the company the document belongs to, one of the document's properties. Read/write.

SintaxeSyntax

expressão . Empresaexpression . Company

expressão Uma variável que representa um objeto Document .expression A variable that represents a Document object.

Valor retornadoReturn Value

StringString

ComentáriosRemarks

Definir a propriedade Company é equivalente a digitar informações na caixa empresa na caixa de diálogo Propriedades (clique na guia arquivo , clique em Info, clique em Propriedadese, em seguida, clique em Avançado Propriedades).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).

Observação de segurançaSecurity Note

ExemploExample

Esta macro do Microsoft Visual Basic mostra como usar a propriedade Company para a empresa para o qual o desenho é feito de documentos. Ele adiciona um objeto Document à coleção Documents e define a propriedade de empresa do objeto Document , bem como outras propriedades.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.

Antes de executar essa macro, substitua por seus próprios valores para os itens em itálico no código a seguir. Para verificar se essas propriedades foram definidas, abra a caixa de diálogo de Propriedades .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