Método Documents.Add (Visio)
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.