Cómo: Guardar documentos de Visio

Actualización: noviembre 2007

Hay varias maneras de guardar los documentos de Microsoft Office Visio:

Guardar los cambios en un documento existente.
Guardar un nuevo documento o guardar un documento con un nuevo nombre.
Guardar un documento con argumentos especificados.

Para obtener más información, vea la documentación de referencia de VBA para los métodos Microsoft.Office.Interop.Visio.Document.Save, Microsoft.Office.Interop.Visio.Document.SaveAs y Microsoft.Office.Interop.Visio.Document.SaveAsEx.

Guardar un documento existente

Para guardar un documento

Llame al método Microsoft.Office.Interop.Visio.Document.Save de la clase Microsoft.Office.Tools.Visio.Document de un documento que se haya guardado previamente.

Para usar este ejemplo de código, ejecútelo desde la clase ThisAddIn del proyecto.

Nota:

El método Microsoft.Office.Interop.Visio.Document.Save inicia una excepción si todavía no se ha guardado un nuevo documento de Visio.
```
Me.Application.ActiveDocument.Save()
```
```
this.Application.ActiveDocument.Save();
```

Nota:
El método Microsoft.Office.Interop.Visio.Document.Save inicia una excepción si todavía no se ha guardado un nuevo documento de Visio.

Guardar un documento con un nuevo nombre

Utilice el método Microsoft.Office.Interop.Visio.Document.SaveAs para guardar un nuevo documento o un documento que tenga un nuevo nombre. Este método requiere que especifique el nuevo nombre del archivo.

Para guardar el documento de Visio activo con un nuevo nombre

Llame al método Microsoft.Office.Interop.Visio.Document.SaveAs de la clase Microsoft.Office.Tools.Visio.Document que desea guardar, mediante una ruta de acceso completa que incluya el nombre de archivo. Si en la carpeta ya existe un archivo con el mismo nombre, será reemplazado sin notificación.

Para usar este ejemplo de código, ejecútelo desde la clase ThisAddIn del proyecto.
```
Dim docPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + "\test\MyDrawing.vsd"
Me.Application.ActiveDocument.SaveAs(docPath)
```
```
string docPath = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + @"\test\MyDrawing.vsd";
this.Application.ActiveDocument.SaveAs(docPath);
```

Guardar un documento con un nuevo nombre y argumentos especificados

Utilice el método Microsoft.Office.Interop.Visio.Document.SaveAsEx para guardar un documento con un nuevo nombre y especificar cualquier argumento pertinente que desee aplicar al documento.

Para guardar un documento con un nuevo nombre y argumentos especificados

Llame al método Microsoft.Office.Interop.Visio.Document.SaveAsEx de la clase Microsoft.Office.Tools.Visio.Document que desea guardar, mediante una ruta de acceso completa que incluya el nombre de archivo. Si en la carpeta ya existe un archivo con el mismo nombre, se inicia una excepción.

En el ejemplo de código siguiente se guarda el documento activo con un nuevo nombre, se marca el documento como de solo lectura y se muestra el documento en la lista de archivos usados recientemente. Para usar este ejemplo de código, ejecútelo desde la clase ThisAddIn del proyecto.

Dim newDocPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + "\test\MyOtherDrawing.vsd"
Me.Application.ActiveDocument.SaveAsEx(newDocPath, CShort(Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsRO) + CShort(Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsListInMRU))

string newDocPath = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + @"\test\MyOtherDrawing.vsd";
this.Application.ActiveDocument.SaveAsEx(newDocPath,
    ((short)Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsRO +
     (short)Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsListInMRU));

Compilar el código

Este ejemplo de código requiere lo siguiente:

Para guardar un documento con un nuevo nombre, debe haber un directorio denominado Test en la carpeta Mis documentos (para Windows XP y anteriores) o la carpeta Documentos (para Windows Vista).