Como: Salvar documentos do Visio
Há várias maneiras de salvar documentos do Visio de Microsoft Office:
Salve alterações em um documento existente.
Salvar um novo documento ou salvar um documento com um novo nome.
Salve um documento com os argumentos especificados.
Para obter mais informações, consulte a documentação de referência do VBA para o Microsoft.Office.Interop.Visio.Document.Save método, Microsoft.Office.Interop.Visio.Document.SaveAs método, e Microsoft.Office.Interop.Visio.Document.SaveAsEx método.
Salvar um documento existente
Para salvar um documento
Chamar o Microsoft.Office.Interop.Visio.Document.Save método o Microsoft.Office.Tools.Visio.Document a classe de um documento que tenha sido salvo.
Para usar este exemplo de código, executá-lo do ThisAddIn classe no projeto.
Observação O Microsoft.Office.Interop.Visio.Document.Save método lança uma exceção se um novo documento do Visio ainda não foram salvas.
Me.Application.ActiveDocument.Save()
this.Application.ActiveDocument.Save();
Salvar um documento com um novo nome.
Use o Microsoft.Office.Interop.Visio.Document.SaveAs método para salvar um novo documento, ou um documento que tem um novo nome. Este método requer que você especifique o novo nome de arquivo.
Para salvar o documento ativo do Visio com um novo nome.
Chamar o Microsoft.Office.Interop.Visio.Document.SaveAs método de Microsoft.Office.Tools.Visio.Document que você deseja salvar, usando um caminho totalmente qualificado, incluindo um nome de arquivo. Se já existe um arquivo com esse nome nessa pasta, é sobrescrito silenciosamente.
Para usar este exemplo de código, executá-lo do ThisAddIn classe no 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);
Salvar um documento com um novo nome e argumentos especificados
Use o Microsoft.Office.Interop.Visio.Document.SaveAsEx método para salvar um documento com um novo nome e especifique quaisquer argumentos aplicáveis para aplicar ao documento.
Para salvar o documento com um novo nome e argumentos especificados
Chamar o Microsoft.Office.Interop.Visio.Document.SaveAsEx método de Microsoft.Office.Tools.Visio.Document que você deseja salvar, usando um caminho totalmente qualificado, incluindo um nome de arquivo. Se já existe um arquivo com esse nome nessa pasta, uma exceção é lançada.
O exemplo de código a seguir salva o documento ativo com um novo nome, marca o documento como somente leitura e mostra o documento na lista de documentos usados recentemente. Para usar este exemplo de código, executá-lo do ThisAddIn classe no 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 tenha um novo nome, um diretório chamado Test deve estar localizado na pasta Meus documentos (para Windows XP e versões anteriores) ou na pasta de documentos (para Windows Vista).
Consulte também
Tarefas
Como: Criar novos documentos do Visio
Como: Abrir documentos do Visio
Como: Feche os documentos do Visio
Como: Imprimir documentos do Visio
Conceitos
Visão geral do modelo de objeto do Visio