Como: Salvar documentos do Visio

Artigo
08/25/2010

Há várias maneiras de salvar documentos do Microsoft Office Visio:

Salvar alterações em um documento existente.
Salvar um novo documento, ou salvar um documento com um novo nome.
Salvar um documento com argumentos especificados.

Para obter mais informações, consulte a documentação de referência do VBA para o método do Microsoft.Office.Interop.Visio.Document.Save , Microsoft.Office.Interop.Visio.Document.SaveAs método e Microsoft.Office.Interop.Visio.Document.SaveAsEx método.

Salvando um documento existente

Para salvar um documento

Chame o método Microsoft.Office.Interop.Visio.Document.Save da classe Microsoft.Office.Tools.Visio.Document de um documento que foi salvo anteriormente.

Para usar esse exemplo de código, execute-o da classe ThisAddIn no seu projeto.

Observação:

O Método Microsoft.Office.Interop.Visio.Document.Save lança uma exceção se um novo documento do Visio ainda não foi salvo.
```
Me.Application.ActiveDocument.Save()
```
```
this.Application.ActiveDocument.Save();
```

Observação:
O Método Microsoft.Office.Interop.Visio.Document.Save lança uma exceção se um novo documento do Visio ainda não foi salvo.

Salvando um documento com um novo nome

Use o método Microsoft.Office.Interop.Visio.Document.SaveAs para salvar um novo documento, ou um documento que possui um novo nome.Este método requer que você especifique a nova Nome do Arquivo.

Para salvar o documento ativo do Visio com um novo nome

Chame o método Microsoft.Office.Interop.Visio.Document.SaveAs de Microsoft.Office.Tools.Visio.Document que você deseja salvar, usando um caminho totalmente qualificado, incluindo um Nome do Arquivo.Se já existe um arquivo com esse nome nessa pasta, é substituído silenciosamente.

Para usar esse exemplo de código, execute-o da classe ThisAddIn no seu projeto.
```
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);
```

Salvando um documento com um novo nome e argumentos especificados

Use o método Microsoft.Office.Interop.Visio.Document.SaveAsEx para salvar um documento com um novo nome e especificar quaisquer argumentos aplicáveis para aplicar ao documento.

Para salvar o documento com um novo nome e argumentos especificados

Chame o método Microsoft.Office.Interop.Visio.Document.SaveAsEx de Microsoft.Office.Tools.Visio.Document que você deseja salvar, usando um caminho totalmente qualificado, incluindo um Nome do Arquivo.Se um arquivo com esse nome já existe nessa pasta, uma exceção é lançada.

O exemplo de código seguinte salva o documento ativo com um novo nome, marca o documento como somente leitura e mostra o documento na lista de documentos mais usados recentemente.Para usar esse exemplo de código, execute-o da classe ThisAddIn no seu projeto.

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));

Compilando o código

Este exemplo de código requer o seguinte:

Para salvar um documento que possui um novo nome, um diretório chamado Test deve estar localizado na pasta Meus documentos (para o Windows XP e anteriormente) ou a pasta documentos (para Windows Vista).