Compartilhar via

Documents.Add method (Visio)

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

Sintaxe

expressão. Adicionar (FileName)

expressão Uma variável que representa um objeto Documentos .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
FileName Obrigatório String O tipo ou nome de ficheiro do documento a adicionar; Se não incluir um caminho, o Visio procura na pasta ou pastas designadas na propriedade TemplatePathsdo objeto Aplicação e em 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 noutro ficheiro, como um modelo, transmita o nome de ficheiro do ficheiro 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

Transmitir um nome de ficheiro como argumento para o método Add é equivalente a abrir um ficheiro como um modelo, onde é criado um novo desenho em branco 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.

  • Last updated on