Compartilhar via

Método Documents.Add (Visio)

  • Artigo

Adiciona um novo objeto Document à coleção Documents.

Sintaxe

expressão. Adicionar (FileName)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
FileName Obrigatório String O tipo ou nome do arquivo do documento a ser adicionado; se você não incluir um caminho, o Visio pesquisará a pasta ou pastas designadas na propriedade TemplatePaths do objeto Application e todos os modelos publicados, incluindo modelos de terceiros publicados.

Valor de retorno

Documento

Comentários

Para criar um novo desenho não baseado em modelos, passe uma sequência de caracteres de comprimento zero ("") para o método Add.

Para criar um novo desenho com base em outro arquivo, como um modelo, passe o nome do arquivo original para o método Add . O Visio abre estênceis que são parte do espaço de trabalho do modelo e copia estilos e outras configurações associadas ao modelo para o novo documento. Se o nome de arquivo do modelo for inválido, nenhum documento será retornado e será gerado um erro.

Para criar um novo estêncil não baseado em estênceis, passe ("vss").

Observação

Passar um nome de arquivo como um argumento para o método Add é equivalente a abrir um arquivo como um modelo, em que um novo desenho em branco é criado que inclui conteúdo copiado do original.

Exemplo

A macro a seguir mostra como adicionar objetos Document, como modelos, estênceis e desenhos à coleção Documents.

Antes de executar esta macro, substitua Myfile.vsd por um arquivo .vsd válido.

Public Sub AddDocument_Example() 
 
 Dim vsoDocument As Visio.Document 
 
 'Add a Document object based on the Basic Diagram template. 
 Set vsoDocument = Documents.Add("Basic Diagram.vst") 
 
 'Add a Document object based on a drawing (creates a copy of the drawing). 
 Set vsoDocument = Documents.Add("Myfile.vsd ") 
 
 'Add a Document object based on a stencil (creates a copy of the stencil). 
 Set vsoDocument = Documents.Add("Basic Shapes.vss") 
 
 'Add a Document object based on no template. 
 Set vsoDocument = Documents.Add("") 
 
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.