Método Documents.Add (Visio)

Agrega un nuevo objeto Document a la colección Documents.

Sintaxis

expresión. Agregar (FileName)

Expresión Variable que representa un objeto Documents .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
FileName	Necesario	String	Tipo o nombre de archivo del documento que se va a agregar; Si no incluye una ruta de acceso, Visio busca en la carpeta o carpetas designadas en la propiedad TemplatePaths del objeto Application y en todas las plantillas publicadas, incluidas las plantillas de terceros publicadas.

Valor devuelto

Documento

Comentarios

Para crear un dibujo nuevo sin partir de ninguna plantilla, pase una cadena de longitud cero ( "" ) al método Add.

Para crear un nuevo dibujo basado en otro archivo, como una plantilla, pase el nombre de archivo del archivo original al método Add . Visio abre galerías de símbolos que forman parte del área de trabajo de la plantilla y copia en el nuevo documento los estilos y demás configuraciones asociadas a la plantilla. Si el nombre del archivo de plantilla no es válido, no se devolverá ningún documento y se generará un error.

Para crear una nueva galería de símbolos sin partir de ninguna otra, pase ("vss").

Nota:

Pasar un nombre de archivo como argumento al método Add equivale a abrir un archivo como una plantilla, donde se crea un nuevo dibujo en blanco que incluye contenido copiado del original.

Ejemplo:

La macro siguiente muestra cómo agregar objetos Document tales como plantillas, galerías de símbolos y dibujos a la colección Documents.

Antes de ejecutar esta macro, sustituya Myfile.vsd por un archivo .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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.