Compartilhar via


Propriedade Document.Company (Visio)

Obtém ou define o nome da empresa à qual o documento pertence, uma das propriedades do documento. Leitura/gravação.

Sintaxe

expressão. Empresa

Expressão Uma variável que representa um objeto Document .

Valor de retorno

Cadeia de caracteres

Comentários

Definir a propriedade Empresa é equivalente a inserir informações na caixa De empresa na caixa de diálogo Propriedades (clique na guia Arquivo , clique em Informações, clique em Propriedades e clique em Propriedades Avançadas).

Exemplo

Esta macro do Microsoft Visual Basic mostra como usar a propriedade Company para documentar a empresa para a qual o desenho foi feito. Ela adiciona um objeto Document à coleção Documents e define a propriedade Company do objeto Document, bem como outras propriedades.

Antes de executar esta macro, substitua os itens em itálico no código pelos seus próprios valores. Para verificar se essas propriedades foram definidas, abra a caixa de diálogo Propriedades.

 
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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.