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.